Предмет: Информатика,
автор: kuiju
Заданы значения x y z Составить программу которая находит среднее арифметическое и среднее геометрическое этих чисел
Ответы
Автор ответа:
0
Program Pr1;
uses crt;
var x,y,z:integer;
a:real;
Begin
clrscr;
readln(x,y,z);
a:=(x+y+z)/3;
writeln(a:8:3);
a:=exp(1/3*ln(x*y*z));
writeln(a:8:3);
end.
Интересные вопросы
Предмет: Математика,
автор: lovanovaayana97
Предмет: Русский язык,
автор: malikamalika43
Предмет: История,
автор: hhgghhuj
Предмет: Математика,
автор: Нюша3
Предмет: Алгебра,
автор: Ioili1451