Найти сумму первых n натуральных чисел где n задается с клавиатурой.Помогите пжжж.

0 голосов
25 просмотров

Найти сумму первых n натуральных чисел где n задается с клавиатурой.


Помогите пжжж.


Информатика (81 баллов) | 25 просмотров
Дан 1 ответ
0 голосов

Program suma;
Var n, sum, i:integer;
begin
  read(n);
  for i:=1 to n do sum:=sum+i;
  write(sum);
end.

(3.4k баллов)