Напишите программу решения на языке паскаль: даны два целых двузначных числа. переставить местами цифры наибольшего из них. если полученное число останется наибольшим вывести «yes», в противоположном случае вывести «no».
Var a,b,max,min:integer; begin Write('Введите два целых двухзначных числа: '); Readln(a,b); if a>b then begin max:=a; min:=b end else begin max:=b; min:=a end; if (10*(max mod 10)+(max div 10))>min then Writeln('YES') else Writeln('NO') end.
a,b,max,min:integer;
begin
Write('Введите два целых двухзначных числа: '); Readln(a,b);
if a>b then begin max:=a; min:=b end
else begin max:=b; min:=a end;
if (10*(max mod 10)+(max div 10))>min then Writeln('YES')
else Writeln('NO')
end.