Число и его перевертыш, Данно число нужно его перевернуть Опции

[Гость_Антон]

Пожалуйста помогите, только недавно начал учить Pascal. Вот такая задача: Определить, какое число больше: данное трехзначное или его перевертыш.
Подскажите пожалуйста как можно перевернуть число?

[Лита]

например так:

Код

{раскладываем данное число n}
a:=n div 100;
b:=(n mod 100) div 10;
c:=n mod 10;
{далее сравниваем}
If n > (c*100+b*10+a) then writeln ('больше число n')
else
If n < (c*100+b*10+a) ('больше его перевертыш') else writeln('число и перевертыш равны');

:yes:

Сообщение отредактировано: Лита - 12.11.2004 16:28