Question

НАПИШИТЕ ПРОГРАММУ ПЖ дам 15б В ПАСКАЛЕ даны два числа а,б. Найти их среднее арифметическое (а+б)/2.

Answer 1

Ответ:

var

a, b: real;

begin

writeln('Введите два числа:');

readln(a, b); { <-- Вводим два числа и нажимаем Enter }

{ Выводим результат: }

writeln('Среднее арифметическое чисел ', a, ' и ', b,

' равно ', (a + b) / 2);

readln

end.

Answer 2

Конечно, я могу помочь вам написать программу на языке Pascal, которая будет находить среднее арифметическое двух чисел. Вот код программы:

program Average;
var
  a, b: integer;
  average: real;
begin
  // Ввод чисел a и b
  write('Введите число a: ');
  readln(a);
  write('Введите число b: ');
  readln(b);
  
  // Вычисление среднего арифметического
  average := (a + b) / 2;
  
  // Вывод результата
  writeln('Среднее арифметическое чисел ', a, ' и ', b, ' равно ', average);
end.

Данная