Сумма всех чётных чисел от 1 до N с клавиатуры

Паскаль

Question

Информатика

Касс

19 января, 13:42

Сумма всех чётных чисел от 1 до N с клавиатуры

Паскаль

+3

Ответы (1)

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

Сарит · Answer 1

program summa;

var i, a, n, sum:integer;

begin

writeln ('Введите n') ;

read (n) ;

sum:=0;

for i:=1 to n do

begin

read (a) ;

if (a mod 2=0) then sum:=sum+a;

end;

writeln ('Cумма всех четных чисел = ', sum) ;

end.

Сумма всех чётных чисел от 1 до N с клавиатурыПаскаль

Сумма всех чётных чисел от 1 до N с клавиатуры

Паскаль