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

Question

Информатика

Антипий

9 февраля, 14:29

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

+3

Ответы (1)

Знаете ответ на вопрос?

Македон · Answer 1

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.