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

Question

Албин

16 декабря, 13:25

+1

Ответы (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.