Question

Составьте программу , выходящую на экран все делители числа х .Число х введите с клавиатуры . Пример ввода : 12 Пример вывода : 1 2 3 4 6 12

Answer 1

Var x,i :integer;
begin
writeln('x=');
readln(x);
for i:=1 to x do
 if x mod i =0 then write(i,' ');
writeln;
end.