Напишите программу на ABC паскале которая вычисляет сумму всех чётных чисел в диапазоне от 1 до n

Question

Костяша

17 февраля, 02:31

+2

Ответы (1)

Знаешь ответ?

Бориска · Answer 1

program z;

var n, i, s:integer;

begin

write ('n='); readln (n);

for i:=1 to n do

if i mod 2 = 0 then s:=s+i;

write ('Сумма = ', s);

end.