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

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

Question

Зинуша

14 августа, 06:23

+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 класса