. Дано натуральное P. Найти все делители числа P.

программа в паскале, помогите решить пожалуйста))

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-11T15:28:53+04:00

var N,i:integer;

begin

readln(N);

i:=2;

while N<>1 do begin

while N mod i=0 do begin writeln(i,' '); N:=N div i; end;

inc(i);

end;

end.