1) Написать программу, которая вычисляет сумму первых n целых положительных чисел. Количество суммируемых чисел должно вводиться во время работы программы. (Использовать цикл While)

Question

Информатика

Бонапарт

1 декабря, 22:06

1) Написать программу, которая вычисляет сумму первых n целых положительных чисел. Количество суммируемых чисел должно вводиться во время работы программы. (Использовать цикл While)

+5

Ответы (2)

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

Унейзат · Answer 1

Var

n, a, sum, i: longint;

begin

readln (n) ;

sum : = 0;

i : = 1;

while (i < = n) do beign

read (a) ;

sum : = sum + a;

inc (i) ;

end;

writeln (sum) ;

end.

Нариманн · Answer 2

Var i, s, n:Integer;

begin

ReadLn (n) ;

while i
begin

i:=i+1;

s:=s+i

end;

WriteLn (s)

end.