задачка по информатикеданы два реальных положительных числа . отыскать среднее

Задачка по информатике
даны два действительных положительных числа . отыскать среднее арифметическое и среднее геометрическое этих чисел.
паскаль

Задать свой вопрос
1 ответ
Program mat;
var a,b: integer;
c,d:real;
begin
readln(a,b);
c:=(a+b)/2;
d:=(a*b)/2;
writeln('среднее арифметическое = ',c,' среднее геометрическое = ', d);
end.
________________
a и b - это те числа которые необходимо ввести(два действительные естественные положительные)
с - среднее арифметическое.
d- среднее геометрическое.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт