vari,e,d,n: integer;beginfor i:=10 to 99 dobegine:=i mod 10;d:=i div 10;n:=e+d;if n mod 2=0 then writeln (i);end;end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.