1. Отыскать среднее арифметическое и среднее геометрическое 2-ух чисел.Написать программку

1. Отыскать среднее арифметическое и среднее геометрическое двух чисел.Написать программу (Паскаль)

Задать свой вопрос
1 ответ
Program arifmeticheskoe;
var
a,b,sr:real;
begin
readln(a,b);
sr:=(a+b)/2;
write(sr);
end.

program geometricheskoe;
var
a,b,sr:integer;
begin
readln(a,b);
sr:=SQRT(a*b);
writeln(sr);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт