Программа суммирования четных значений от 600 до 988

kamilyusupov123 kamilyusupov123    3   04.10.2019 20:30    0

Ответы
Tam192837465 Tam192837465  09.10.2020 20:23
program task31101860; var  Sum: integer; begin  for var i := 600 to 989 do    if i mod 2 = 0 then      Sum := Sum + i;  Writeln(Sum); end.

Вывод: 154830

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика