Решаем задачи Абрамян на Паскале. Begin 9

Begin9. Даны два неотрицательных числа $a$ и $b$ . Найти их среднее геометрическое, то есть квадратный корень из их произведения: $\sqrt{a*b}$ .

Решение:

program Begin9;
var
  a,b,SG: Real;
begin
  Write('Введите число a: ');
  Readln(a);
  Write('Введите число b: ');
  Readln(b);
  SG:=sqrt(a*b);
  Writeln('Среднее геометрическое a и b равно: ',SG);
end.

program Begin9;

var

a,b,SG: Real;

begin

Write('Введите число a: ');

Readln(a);

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

Readln(b);

SG:=sqrt(a*b);

Writeln('Среднее геометрическое a и b равно: ',SG);

end.

Другие задачи из раздела Begin можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Begin 9

Комментарии:

Добавить комментарий Отменить ответ