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

Question

Информатика

Панкратий

10 сентября, 15:53

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

+1

Ответы (1)

Знаете ответ на вопрос?

Харита · Answer 1

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.