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

Question

Веруша

9 июля, 13:24

+5

Ответы (1)

Знаете ответ на вопрос?

Стефан · 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.