Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.