Question

Найдите сумму первых 10 чисел (1 2 3 4 5 6 7 8 9 10) на языке Паскаль

Answer 1

Var
a: array[1..10] of integer;
k; integer;
Begin
For k:=1 to 10 do begin
Read(a[k]);
s:=s+a[k];
end;
Writeln(s)
Readln;
end.

Answer 2

Конечно, вот пример программы на языке Pascal, который вычисляет сумму первых 10 чисел (1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 10):

program SumOfFirst10Numbers;

var
  sum, i: integer;

begin
  sum := 0; // Инициализируем сумму

// Вычисляем сумму первых 10 чисел
  for i := 1 to 10 do
  begin
    sum := sum + i;
  end;

// Выводим результат
  writeln('Сумма первых 10 чисел: ', sum);

readln; // Ждем ввода перед закрытием программы
end.

В этой программе переменная `sum` используется для хранения текущей суммы, а переменная `i` используется для итерации от 1 до 10 включительно. Каждое число прибавляется к сумме в цикле. В конце программы выводится результат - сумма первых 10 чисел.