Даны 2 целых числа найти : А) Их средняя арифмитическая . Б) их средняя геометрическая
Даны 2 целых числа найти : А) Их средняя арифмитическая . Б) их средняя геометрическая
Гость
Ответ(ы) на вопрос:
Гостьprogram p1;
var a,b,c,d:real;
begin
write('Введите первое число:');
readln(a);
write('Введите второе число:');
readln(b);
c:=(a+b)/2;
writeln('Среднее арифмитическое:',c);
d:=1;
d:=d*a;
d:=d*b;
d:=sqrt(d);
writeln('Среднее геометрическое:',d);
end.
Гостьвот держи,....................................
sr-среднее арифмет
g-сред геометрич
Не нашли ответ?
Похожие вопросы