Составьте программу Pascal находящую количество делителей натурального числа N

Question

Информатика

Потап

12 декабря, 11:16

Составьте программу Pascal находящую количество делителей натурального числа N

+2

Ответы (1)

Знаете ответ?

Амата · Answer 1

Program wer;

var k, i, n: integer;

begin

writeln ('vvedi natur chislo') ;

readln (n) ;

if n>=1 then

begin

for i:=1 to n do

if n/i=n div i then k:=k+1;

writeln ('kol-vo delitelej=', k) ;

end else writeln ('eto chislo ne natur') ;

readln;

end.