Найти все делители для заданного числа n. Паскаль

Question

Информатика

Надюха

19 мая, 04:27

Найти все делители для заданного числа n. Паскаль

+1

Ответы (1)

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

Милетий · Answer 1

uses crt;

var i, n, m:integer;

begin

read (n);

m:=n;

i:=1;

while i<=m do

begin

if n mod i=0 then

begin

write (i,' ');

m: = (n div i);

end;

i:=i+1;

end;

write (n);

end.