Manargas 27 октября 2019 в 10:46
Ввести три натуральных числа. Найти их 'среднее арифметическое, геометрическое, гармоническое
A B C
Ввести три натуральных числа. Найти их 'среднее арифметическое, геометрическое, гармоническое
A B C
Program Znanija;
var a,b,c:integer;
begin
readln(a,b,c);
writeln(Среднее арифметическое: , (a+b+c)/3);
writeln(Среднее геометрическое: , sqrt(a*b*c));
writeln(Среднее гармоническое: , 3/((1/a)+(1/b)+(1/c)));
end.
var a,b,c:integer;
begin
readln(a,b,c);
writeln(Среднее арифметическое: , (a+b+c)/3);
writeln(Среднее геометрическое: , sqrt(a*b*c));
writeln(Среднее гармоническое: , 3/((1/a)+(1/b)+(1/c)));
end.
Для комментирования необходимо зарегистрироваться на сайте