Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Даны 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.