Question

Вывести все четные делители числа, введённого с клавиатуры!!! На Паскале! Срочно!!!

Answer 1

var a, i: integer;
begin
readln(a);
for i:=2 to a do
if (a mod i = 0) and (i mod 2 = 0) then writeln(i);
end.