Дан символ. Запиши десятичный код для данного символа если используется таблица кодировки ASCII. Символ:3

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

десятичная   двоичная         восьмеричная           шестнадцатиричная

1)

10                 1010                               12                                       a

18                 10010                             22                                     12

322               101000010                   502                                   142

2)

10                 1010      

74                                                         112      

92                                                                                                 5c  

числа снизу обозначают систему счисления

var

a,b: integer;

begin

write('введите в одной строке два целых числа и нажмите < enter> ');

readln(a,b);

if a=b then writeln('числа равны')

else 

if a> b then writeln(a,' больше')

else writeln(b,' больше')

end.

картинка длжна быть в папке с программой и быть в формате bmp

uses graphabc;

var n: string; b: picture; s: integer;

begin writeln('введите расстояние до зеркала'); readln(s); write('введите имя файла рисунка: '); readln(n); window.clear; b : = picture.create(n); b.load(n); b.draw(50, 50); b.fliphorizontal; b.draw(50+2*s,50); end.