Составить программу, которая находит сумму всех чётных двузначных чисел

Есть ответ
12.12.2022
329

Ответ


program raf105;

var i,sum: integer;

begin

for i:=10 to 99 do

 if (i mod 2)=0

   then sum+= i;

writeln(sum);

end.

Язык PascalABC


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.