Написать программу на языке программирования Paskal, которая будет находить сумму всех четных чисел в диапазоне от 1 до N (N - вводится с клавиатуры)

Question

Шауна

22 января, 04:38

+2

Ответы (1)

Знаете ответ на вопрос?

Вгений · Answer 1

Var i, n, sum: integer;

begin

readln (n) ;

for i:=1 to n do if i mod 2=0 then sum:=sum+i;

writeln (sum) ;

end.