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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.