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

Ответ

Автор - Twyla27

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.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.