Question

Вводится трёхразрядное целое число. Определить, какую из цифр необходимо убрать из этого числа, чтобы оставшиеся две(без перестановок) образовали наибольшее двухразрядное число. Напишите, пожалуйста, программу для
PascalABC

Answer 1

Задача решена на ABC Pascal

d88425a12c0df4112ad1b69fa62f0e40.pas

Answer 2

прости что переспрашиваю, но у меня показывает вот это case Max(w1*10+w2,w2*10+w3,w1*10+w3) of
1 : writeln('Íóæíî óáðàòü ',w3);
2 : writeln('Íóæíî óáðàòü ',w1);
3 : writeln('Íóæíî óáðàòü ',w2);
end;
это правильно, или это ошибка?