Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

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

Валерия Плешкова Знаток (391), на голосовании 7 лет назад
Голосование за лучший ответ
Imobilazer Искусственный Интеллект (222455) 7 лет назад
c:=0;
for i:=1 to n do
begin
if n mod i = 0 then writeln(i);
inc(c);
end;
Юрий Моисеев Оракул (83940) 7 лет назад
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.
Похожие вопросы