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

Question

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

Answer 1

Var a, b, c : longint;
begin 
  read (a, b);
  if (a>b) then
  begin
    c:=a;
    a:=a*b;
    b:=c+b;
  end else
  if (b>a) then
  begin
    c:=b;
    b:=a*b;
    a:=c+a;
  end;
  writeln (a, ' ', b);
end.

Должно работать, не проверял)

Comments

беру два числа 3 и 2

---

получается 54 и 48 так?

---

Я немного изменил, пересмотри ещё раз.

---

Всё спасибо

---

тебе баллы начислились?

---

Да)