Определение делителей заданного натурального числа

koshka1

составить програму для определения делителей заданного натурального числа n. помогите пожалуста!
2 ответа

koshka1

uses crt;
var n,i: integer;
begin
write('Число: '); readln(n);
writeln('Делители: ');
for i:=1 to n do
    if n mod i=0 then write(i,' ');
readln;
end.


koshka1

спасибо!