Составьте программу,  заменяющую больше из 2-ух данных чисел двойным твореньем, а

Составьте программку, сменяющую больше из 2-ух данных чисел двойным творением, а наименьшее полусуммой этих чисел

Задать свой вопрос
1 ответ
Uses crt;
var a,b,c:real;
begin
     read(a,b);
     c:=a;
     if agt;b then
     begin
          a:=2*a*b;
          b:=(c+b)/2;
     end
     else begin
          a:=(a+b)/2;
          b:=2*c*b;
     end;
     writeln;
     write(a,' ',b);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт