Question

Написать программу вычисления суммы натуральных чисел от 1 до nTurbo Pascal

Answer 1

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

Answer 2

Вот пример программы на языке Turbo Pascal, которая вычисляет сумму натуральных чисел от 1 до заданного числа n:

program SumOfNaturalNumbers;

var
  n, sum, i: integer;

begin
  writeln('Введите число n:');
  readln(n);
  
  sum := 0;
  
  for i := 1 to n do
  begin
    sum := sum + i;
  end;
  
  writeln('Сумма натуральных чисел от 1 до ', n, ' равна ', sum);
  
  readln;
end.

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

Например, если пользователь введет число 5, программа выведет:

Сумма натуральных чисел от 1 до 5 равна 15