Найти сумму четных натуральных чисел кратных 7 из промежутка[23; 49] !

Infinity167 Infinity167    2   10.09.2019 19:30    1

Ответы
Мейси13 Мейси13  07.10.2020 05:59
Var
  i, sum: integer;

begin
  sum := 0;
  for i := 23 to 49 do if (i mod 7 = 0) and (i mod 2 = 0) then sum := sum + i;
  writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика