Написать программу, которая вычисляет сумму первых n целых положительных чисел. Количество суммируемых чисел должно вводиться во время работы программы. Написать ее с помощью цикла for ... to ... do ...

Question

Доброгнева

19 ноября, 03:52

+2

Ответы (1)

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

Иулиана · Answer 1

var c, a, n, i:longint;

begin

read (n) ;

read (a) ;

c:=a;

for i:=2 to n do

begin

read (a) ;

c:=c+a;

end;

write (c) ;

end.