Question

Написать программу вычисления суммы S=1+2+3+...+n. На паскале. Помогите, пожалуйста.

Answer 1

var

 n,i,s:longint;

begin

 read(n);

 for i:=1 to n do

   s:=s+i;

 writeln(s);

end.

Answer 2

Конечно! Вот пример программы на языке Pascal для вычисления суммы S=1+2+3+...+n:

pascalCopy code
program Summation;
var
  n, S, i: Integer;
begin
  writeln('Введите значение n:');
  readln(n);
  
  S := 0;
  for i := 1 to n do
  begin
    S := S + i;
  end;
  
  writeln('Сумма S = ', S);
  readln;
end.

Программа запрашивает у пользователя значение n, затем инициализирует переменную S со значением 0. Затем она использует цикл for для итерации от 1 до n и добавления каждого числа к переменной S. По завершении цикла программа выводит итоговую сумму S на экран.

Надеюсь, это поможет!