Question

Составьте программу которая выводит на экран все двузначные числа сумма цифр которых четнаяв Паскаль абс

Answer 1

var
i,e,d,n: integer;
begin
for i:=10 to 99 do
begin
e:=i mod 10;
d:=i div 10;
n:=e+d;
if n mod 2=0 then writeln (i);
end;
end.