Есть число abc, выписать все трехзначные числа abc - вопрос №1919199424982 от 2003kate2003kate2003 07.12.2022 01:17

Question

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

2003kate2003kate2003 · Answer

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.