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.
Answers & Comments
Verified answer
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.