Задание:
Помогите написать на паскале программу для вычесления суммы четных чисел от 0 до 10 с выводомрезультата
Решение:
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.
Знаете другой ответ?