Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Написать программу на языке программирования Паскаль.
Дано натуральное число N. Найти сумму 1+2+3+4+5+…+N.

Ответ оставил Гость

Var
  n, s, i: integer;

begin
  write(Число: );
  readln(n);
  s := 0;
  for i:=1 to n do s:=s+i;
  writeln(Сумма = , s);
end.

Тестовое решение:
Число: 100
Сумма = 5050