Вывести все делители числа и найти из количество. Паскаль

Question

Вывести все делители числа и найти из количество. Паскаль

Валерия Плешкова Знаток (391), на голосовании 7 лет назад

Answer 1

Sadovnik Мастер (1010) 7 лет назад

согласен

Answer 2

Imobilazer Искусственный Интеллект (222453) 7 лет назад

c:=0;
for i:=1 to n do
begin
if n mod i = 0 then writeln(i);
inc(c);
end;

Answer 3

var n,i,k:integer;
begin
write('n=');
readln(n);
k:=0;
for i:=1 to n do
if n mod i=0 then begin
write(i,' '); k:=k+1 end;
writeln;
writeln('Kol=',k)
end.