• Составить программу нахождения среднего арифметического и среднего геометрического модулей двух чисел (Pascal ABC)

Ответы 1

  • Program z123;Var a,b,c,d:real;Begin Writeln('Введите значения двух чисел'); Readln(a,b); c:=(abs(a)+abs(b))/2; d:=sqrt(abs(a)*abs(b)); Writeln('Среднее арифметическое модулей двух чисел=',c); Writeln('Среднее геометрическое модулей двух чисел=',d);End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years