Var i:integer;
begin
for i:=100 to 999 do
if ((i mod 100 div 10)mod 2=0) and ((i mod 100 div 10)<>0)
then writeln (i);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Var i:integer;
begin
for i:=100 to 999 do
if ((i mod 100 div 10)mod 2=0) and ((i mod 100 div 10)<>0)
then writeln (i);
end.