Составьте программу, которая вводит трехзначное число и выводит число, образованное при перестановке цифр в обратном порядке (например: 123-321). в паскале. ! заранее!

Var   a: longint;   s: string;   i: integer; begin   writeln('введите целое положительное число');   readln(a);   str(a,s);   write('результат: ');   for i: = length(s) downto 1 do       write(s[i]);   writeln end. тестовый пример: введите целое положительное число 1234567890 результат: 0987654321

93₁₀ =1011101₂

93 : 2 = 46 (1)

46 : 2 = 23 (0)

23 : 2 = 11 (1)

11 : 2 = 5 (1)

5 : 2 = 2 (1)

2 : 2 = 1 (0)

1 : 2 = 0 (1)

 

124₁₀ =1111100₂

124 : 2 = 62 (0)

62 : 2 = 31 (0)

31 : 2 = 15 (1)

15 : 2 = 7 (1)

7 : 2 = 3 (1)

3 : 2 = 1 (1)

1 : 2 = 0 (1)

 

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.