даны 2 целых числа найти : А) Их средняя арифмитическая . Б) их средняя геометрическая
Answers & Comments
ihorsyrota
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.
Answers & Comments
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.