Написать на паскале программу для вычесления суммы - вопрос №276159 от LuLu6780 13.03.2021 14:11

Question

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

LuLu6780 · 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.