Дано трёхзначное число, поменять местами сотни и единицы и сравнить эти числа??

Question

Дано трёхзначное число, поменять местами сотни и единицы и сравнить эти числа??

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

var a, b, c: integer; begin readln(a); b := (a mod 10 * 100) + (a mod 100 div 10 * 10) + (a div 100); if (a > b) then writeln(a, ' > ', b) else if (a = b) then writeln(a, ' = ', b) else writeln(a, ' < ', b); end.