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

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

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

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.