Напишите программу решения задачки на языке Паскаль: Даны два целых двузначных

Напишите программу решения задачки на языке Паскаль: Даны два целых двузначных числа. Переставить местами цифры наибольшего из них. Если приобретенное число останется наибольшим вывести YES, в обратном случае вывести NO.

Задать свой вопрос
1 ответ
Var
  a,b,max,min:integer;
begin
  Write('Введите два целых двухзначных числа: '); Readln(a,b);
  if agt;b then begin max:=a; min:=b end
  else begin max:=b; min:=a end;
  if (10*(max mod 10)+(max div 10))gt;min then Writeln('YES')
  else Writeln('NO')
end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт