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

+ 0 -

Зефыч

25 апр. 2014 г., 4:33:46 (10 лет назад)

Берем и проходим циклом.

var

  sum, i, n : integer;

//i - счетчик, в sum - сумма )

begin

  read (n);

  sum := 0; //Надо обязательно обнулить

  for i := 1 to n do

    sum := sum + i;

//Таким образом к сумме будут добавлены 1, при следующей интерации 2, и так далее до N

  writeln (sum);

end.

Постарался объяснить...

+ 0 -

алишка05

25 апр. 2014 г., 6:26:24 (9 лет назад)

var sum,n,i:integer;

begin

readln(n);

sum:=0;

for i:=1 to n do

    sum:=sum+i;

writeln(sum);

readln;

end.