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

Question

Информатика

Евмений

11 марта, 09:26

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

+3

Ответы (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.