Составьте ** языке Паскаль программу вычисления суммы всех натуральных чисел, не...

Question

Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Построить трассировочную таблицу

Answer 1

program cikl;

var

s,i,n: integer;

 

begin

writeln('vvedite chislo n');

readln(n);

s:=0;

for i:=1 to n do begin

s:=s+i;

end;

 

writeln('summa =',s);

end.

---

Comments

spasibo