Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Срочно!! Паскаль! Напишите программу по нахождению всех делителей данного натурального числа

Ответ оставил Гость

Var
n, i: integer;
begin
readln(n);
i:=n;
writeln(Делители числа ,n,:);
while i>0 do
begin
if (n mod i) = 0 then
write(i,  );
i:=i-1;
end;
read;
end.