Даны 2 целых числа найти : а) их средняя арифмитическая . б) их средняя

danieldsha1234 danieldsha1234    3   07.07.2019 13:00    0

Ответы
EgorKornev665 EgorKornev665  30.07.2020 19:45
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.
ПОКАЗАТЬ ОТВЕТЫ
dimanichaev799 dimanichaev799  30.07.2020 19:45
Вот держи,
sr-среднее арифмет
g-сред геометрич
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика