Вычислить среднее арифметическое и среднее геометрическое 4 и 6

1

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

2014-03-17T19:18:42+04:00
Program fofgogjoj;
var
a,b:integer;
sa,sg:real;
begin
a:=4;
b:=6;
sa:=(a+b)/2;
sg:=exp(ln(a*b)/2);
Writeln('Среднее арифметическое=',sa:0:3);
Writeln('Среднее геометрическое=',sg:0:3);
end.