Question

Дано 2 числа
необходимо большее из чисел утроить (х3) , а в случае равенства чисел выдать сообщение "числа равны"​

Answer 1

Ответ:

//pascal

var A,B : integer;

begin

 readln(A, B);

 if A = B then

   writeln('Числа равны.')

 else

 begin

   if(A > B) then

     A *= 3

   else

     B *= 3;

   writeln(A, ' ', B);

  end;

end.

Объяснение: