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

1

Ответы и объяснения

Лучший Ответ!
  • kin5
  • середнячок
2012-03-08T20:50:59+00:00

var sum,n,i:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do

    sum:=sum+i;

writeln(sum);

readln;

end.