сред геометрическое

Ответ от Клыков Владимир[гуру]
Нашел, печеньку положено мне?

Ответ от Kengup[гуру]
readln(x,y);
writeln('Srednee arifmeticheskoe: ', (abs(x)+abs(y))/2);
writeln('Srednee geometricheskoe: ', sqrt(abs(x*y));

Ответ от Ўрий Моисеев[гуру]
read(a,b); writeln((a+b)/2, ' ',sqrt(a*b))

Ответ от Ђемирлан Биджиев[гуру]
readln (a,b);
Writeln ((abs(a)+abs(b))/2);
Writeln (sqrt(abs(a)*abs(b));

Ответ от Krab Bark[гуру]
program a1;
var a,b:real;
begin
write('a b: '); readln(a,b);
writeln('Arithmetic mean=',(abs(a)+abs(b))/2);
writeln('Geometric mean=',sqrt(abs(a*b));
readln
end.

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]