Предмет: Информатика, автор: sharkkk

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

Ответы

Автор ответа: PsyhoAssasin
0

  

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.

 

Похожие вопросы
Предмет: Физика, автор: Аноним
Предмет: Математика, автор: vova1909