Даны два целы числа a и b.Поменять большее из числе произведением

Даны два целы числа a и b.Поменять большее из числе творением а наименьшее суммой.PASCALABC

Задать свой вопрос
1 ответ
Var a, b, c : longint;
begin 
  read (a, b);
  if (agt;b) then
  begin
    c:=a;
    a:=a*b;
    b:=c+b;
  end else
  if (bgt;a) then
  begin
    c:=b;
    b:=a*b;
    a:=c+a;
  end;
  writeln (a, ' ', b);
end.

Обязано работать, не проверял)
Черешнев Владик
беру два числа 3 и 2
Марина
выходит 54 и 48 так?
Стефания Хавилова
Я немножко изменил, пересмотри ещё раз.
Дима Жебряков
Всё спасибо
Маргарита Манько
тебе баллы начислились?
Вадим Кузьмишнин
Да)
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт