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

Question

Информатика

Гоча

10 июля, 16:20

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

+2

Ответы (1)

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

Хон · Answer 1

Var s, i:integer;

begin

for i:=100 to 999 do

begin

if ((i mod 100 div 10) mod 2=0) and ((i mod 100 div 10) 0)

then writeln (i) ;

s:=s+i;

end;

writeln (s,' сумма всех таких чисел') ;

end.