Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напишите программу решения задачи на языке Паскаль: Даны два целых двузначных числа. Переставить местами цифры наибольшего из них. Если полученное число останется наибольшим вывести «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.