Question

Напишите программу на языке Паскаль, которая выводит на экран среднее арифметическое значение двух натуральных чисел. Числа вводятся с клавиатуры.​

Answer 1

var a, b: integer;

begin

readln(a);

readln(b);

write('Среднее арифметическое= ',(a+b)/2);

end.

Answer 2

Для вычисления среднего арифметического двух натуральных чисел на языке Паскаль, вам понадобится следующий код:

pascalCopy code
program AverageCalculator;

var
  num1, num2: Integer;
  average: Real;

begin
  // Вводим два натуральных числа с клавиатуры
  Write('Введите первое натуральное число: ');
  ReadLn(num1);

  Write('Введите второе натуральное число: ');
  ReadLn(num2);

  // Вычисляем среднее арифметическое
  average := (num1 + num2) / 2;

  // Выводим результат на экран
  WriteLn('Среднее арифметическое: ', average:0:2);
end.

Обратите внимание, что в коде используется переменная average типа Real, так как среднее арифметическое может быть числом с плавающей запятой. Также обратите внимание на формат вывода average:0:2, который ограничивает количество знаков после запятой до двух.