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

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

Question

Калистус

29 августа, 17:19

+5

Ответы (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