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

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

Лидия 2019-08-15 19:16:57

Спасибо!

Ромик Курадзе 2019-08-15 19:24:23

объясните решение, пожалуйста

Варвара Коротких 2019-08-15 19:27:10

Сначала считывается некое трёхзначное число в переменную А, потом...Потом берём единицы этого числа и умножаем на 100 (становятся сотками нового числа), 10-ки мы так и оставляем (берём количество десятков и умножаем на 10), а сотки числа создадим единицами нового, всё это складываем и получаем перевёрнутое число =) Потом сопоставляем и выводим итог, я привык через строчки всё сходственное делать, но для общего развития вот обилие внёс)

О проекте

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

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