Question

Помоги написать задачу на Паскале. Решить надо с помощью цикла FOR. Вывести на экран все делители данного числа введенного с клавиатуры.

Answer 1

var

n,i:longint;

begin

write ('N = ');readln(n);

for i:=2 to n div 2 do

if n mod i = 0 then writeln (i);

readln;

end.