Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.

.