Question

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

Answer 1

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

Answer 2

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

pascalCopy code
program SumOfNumbers;

var
  i, sum: Integer;

begin
  sum := 0;

  for i := 1 to 10 do
  begin
    sum := sum + i;
  end;

  writeln('Сумма натуральных чисел от 1 до 10 равна: ', sum);
  readln;
end.

Программа начинает с инициализации переменных i (используется для итерации от 1 до 10) и sum (сумма чисел).

Затем цикл for используется для просмотра каждого числа от 1 до 10. Внутри цикла каждое число прибавляется к переменной sum.

После окончания цикла выводится сообщение, содержащее результат вычисления суммы.

Когда программа выполняется, она выводит следующий результат:

Copy code
Сумма натуральных чисел от 1 до 10 равна: 55

Таким образом, сумма натуральных чисел от 1 до 10 равна 55.