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

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

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

[volvo]

Гость_Антон

Тебе даже не надо находить сам перевертыш. Просто преобразуй число в строку функцией Str и проверяй, какой символ строки больше, первый или третий. Если первый, то больше само число, а если третий - то больше будет его перевертыш.

Код

var
 s: string;
 a: integer;
...
begin
 str(a, s);
 if s[1] > s[3] then writeln('больше число')
 else
   if s[1] < s[3] then writeln('больше перевертыш')
   else writeln('число и перевертыш - равны');
end.

Лита

Ну зачем столько вычислять?
:P

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