Задать вопрос Регистрация
Помочь другим

  • даны 2 числа найти среднее арифметическое и среднее геометрическое их модули

Ответы 1

  •   

    Program avgGm;

    Uses crt;

    var a,b,res:integer

     

    begin

         clrscr;

          writeln('Введите А и B ' );

     

          readln(a,b);

     

     

           res:=(sqrt(a*b));   

          writeln('Модуль числа а: ', abs(a)); 

     

           writeln('Модуль числа b: ', abs(b)); 

     

           writeln('Среднее арифметическое: ', ((a+b)  div 2));

           writeln('Среднее геометрическое: ', res); 

     

           readkey;

     

    end.

     

    . 

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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