Question

Составить программу на языке Паскаль нахождения суммы первых 20 натуральных чисел.

Answer 1

Var
n,s:integer;
begin
for n:=0 to 20 do
s:=s+n;
writeln(s);
end.

Answer 2

Я могу помочь вам с написанием программы на языке Паскаль. Вот один из возможных вариантов решения вашей задачи:

program sum_of_first_20_natural_numbers;
var
  i, sum: integer;
begin
  sum := 0; // инициализируем сумму нулем
  for i := 1 to 20 do // цикл от 1 до 20 с шагом 1
  begin
    sum := sum + i; // прибавляем текущее число к сумме
  end;
  writeln('Сумма первых 20 натуральных чисел равна ', sum); // выводим результат на экран
end.

Эта программа использует переменные `i` и `sum` для хранения текущего числа и суммы соответственно. Она также использует цикл `for` для повторения операции сложения 20 раз. Наконец, она выводит полученную сумму с помощью функции `writeln`.

Надеюсь, это поможет вам. Если у вас есть еще вопросы, я рад помочь.