Написать на паскале программу для вычесления суммы четных чисел от 0 до 10 с выводом результата

zD3VOLYx zD3VOLYx    3   14.03.2019 10:00    2

Ответы
Алинаwlis Алинаwlis  25.05.2020 06:57

var s, i: integer;

begin

  s:= 0;

  for i:= 0 to 10 do 

    if i mod 2 = 0 then s:= s + i; {если остаток от деления на 2 равен 0, то прибавляй i к сумме}

  write('Сумма равна ', s);

end.

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