Помогите с паскалем!
Нужно сделать одну любую задачу.

Пример простой задачи: дано натуральное число \(n\). Найти сумму чисел от \(1\) до \(n\).

program SumNumbers;
var
  n, i, s: integer;
begin
  readln(n);
  s := 0;
  for i := 1 to n do
    s := s + i;
  writeln('Сумма = ', s);
end.

Например, при \(n=5\) программа выведет \(15\).

0 0 Пожаловаться