Question

Напишите программу (Pascal ABC) - Нахождение среднего значения пяти чисел

Answer 1

Ответ:

program Qwerty;

var a, b, c, d, e, f, g: real;

begin

readln (a, b, c, d, e);

f:=5;

g:=(a+b+c+d+e)/f;

writeln (g);

end.

Объяснение:

Answer 2

Конечно! Вот пример программы на Pascal ABC, которая находит среднее значение пяти чисел:

pascalCopy code
program FindAverage;

var
  num1, num2, num3, num4, num5: Real;
  average: Real;

begin
  WriteLn('Введите пять чисел:');
  ReadLn(num1, num2, num3, num4, num5);

  average := (num1 + num2 + num3 + num4 + num5) / 5;

  WriteLn('Среднее значение: ', average:0:2);
end.

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