Составить программу нахождения S=1+2+3 ... + N

уровень 9 класса

Question

Лора

17 февраля, 02:28

+1

Ответы (1)

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

Александрина · Answer 1

Var

s, n, i:integer;

begin

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

readln (n) ;

for i:=1 to n do

s:=s+i;

writeln ('Сумма = ', s) ;

end.

Составить программу нахождения S=1+2+3 ... + Nуровень 9 класса