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

1

Ответы и объяснения

2013-10-25T01:20:45+04:00
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.
Спасибо!
объясните решение, пожалуйста
Сначала считывается некоторое трёхзначное число в переменную А, затем...
Затем берём единицы этого числа и умножаем на 100 (становятся сотнями нового числа), десятки мы так и оставляем (берём количество десятков и умножаем на 10), а сотни числа сделаем единицами нового, всё это складываем и получаем перевёрнутое число =)
Потом сравниваем и выводим результат, я привык через строки всё подобное делать, но для общего развития вот разнообразие внёс)