Даны действительные числа n и m. Меньшее из этих двух чисел

Даны действительные числа n и m. Наименьшее из этих 2-ух чисел поменять их полусуммой, а большее двойным твореньем.

Задать свой вопрос
1 ответ
Uses crt;
var g: Integer;
n,m: Real;
Begin
Write('Введите два числа: ');
Readln(m,n);
If mgt;n then begin
g:=n;
n:=(m+n)/2;
m:=2*m*n;
end
else begin
g:=m;
m:=(m+n)/2;
n:=2*m*n;
end;
Writeln('m = ', m, ' n = ', n);
End.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт