Определить число

[rapprozi]

Здраствуйте! Дело в том, что я пишу отчёт. Застрял тут.. Помогите, пожалуйста!

Составить следующую программу на алгоритмическом языке Turbo Pascal. определить
число, полученное выписыванием в обратном порядке цифр заданного
трехзначного числа.

Буду очень благодарен.

[Serge_Bliznykov]

 repeat 
   WriteLn('Введите 3-х значное число: ');
   Readln(N);
 until (N>=100) and (N<=999);
 
 M := (N mod 10)*100 + ((N div 10) mod 10)*10 + (N div 100);
 WriteLn('Получилось число: ', M);

[rapprozi]

Спасибо большое!

[s-andriano]

А не проще так:

repeat 
   WriteLn('Введите 3-х значное число: ');
   Readln(s);
 until length(s)=3;
 
 WriteLn('Получилось число: ', s[3],s[2],s[1]);

Если нужно непременно бинарное представление числа, отредактировать строку на месте воспользоваться функцией val.

Из бонусов: этот алгоритм работает в любой позиционной системе счисления, а не только в десятичной.