Есть число ABC, выписать все трехзначные числа abc если b четное a=1-9 b=1-9 c=1-9 Все выписанные числа должны сложиться
Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад