Есть число ABC, выписать все трехзначные числа abc если b четное

a=1-9 b=1-9 c=1-9

Question

Радомила

23 сентября, 16:27

+4

Ответы (1)

Знаете ответ на вопрос?

Каллэ · Answer 1

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.

Есть число ABC, выписать все трехзначные числа abc если b четноеa=1-9 b=1-9 c=1-9