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