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

Question

Информатика

Рушагия

22 марта, 12:22

Есть число 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.