Ответы
Ответ дал:
2
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.
begin
readln(a);
for i:=2 to a do
if (a mod i = 0) and (i mod 2 = 0) then writeln(i);
end.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
7 лет назад