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

1

Ответы и объяснения

2013-11-17T15:28:21+00:00
Program chisla;
var a,b:integer;
q:real;
begin
read(a,b);
q:=(abs(a)+abs(b))/2;
writeln(q);
q:=sqrt(abs(a)*abs(b));
writeln(q);
end.