Question

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

Answer 1

var a,b:integer;

var sr,otvet:real;

begin

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

 readln(a,b);

 sr:= (a+b)/2;

 if a>b then

   begin

   otvet:= sr-b;

   writeln(otvet);

   end

 else

   begin

   otvet:= sr-a;

   writeln(otvet);

   end

end.

Answer 2

Конечно, вот пример программы на языке Pascal, которая вводит два целых числа, вычисляет среднее геометрическое и выводит разность между средним геометрическим и меньшим числом:

pascalCopy code
program GeometricMeanDifference;

var
  num1, num2, geometricMean, minNum, difference: real;

begin
  // Вводим два целых числа
  writeln('Введите первое число: ');
  readln(num1);
  writeln('Введите второе число: ');
  readln(num2);

  // Вычисляем среднее геометрическое
  geometricMean := sqrt(num1 * num2);

  // Находим меньшее число
  if num1 < num2 then
    minNum := num1
  else
    minNum := num2;

  // Вычисляем разность
  difference := geometricMean - minNum;

  // Выводим результат
  writeln('Среднее геометрическое: ', geometricMean:0:2);
  writeln('Меньшее число: ', minNum:0:2);
  writeln('Разность между средним геометрическим и меньшим числом: ', difference:0:2);
end.

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