Question

Задание на языке Паскаль: найти среднее арифметическое трёх чисел a, b, c. Числа a, b, c ввести с клавиатуры. Помогите, пожалуйста

Answer 1

Ответ:

begin

 var (a,b,c):=ReadInteger3('Введите 3 числа: ');

 Print('Srednee: ', (a+b+c)/3);

end.

Answer 2

Конечно! Вот простой код на языке Паскаль, который находит среднее арифметическое трех чисел, введенных с клавиатуры:

pascalCopy code
program FindAverage;

var
  a, b, c: Real;
  average: Real;

begin
  writeln('Введите первое число a:');
  readln(a);

  writeln('Введите второе число b:');
  readln(b);

  writeln('Введите третье число c:');
  readln(c);

  average := (a + b + c) / 3;

  writeln('Среднее арифметическое чисел ', a, ', ', b, ' и ', c, ' равно: ', average:0:2);
end.

Программа попросит вас ввести три числа (a, b и c), а затем вычислит и выведет среднее арифметическое на экран с точностью до двух десятичных знаков.