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

Question

Кузьма

13 ноября, 06:14

+5

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