Для кодирования букв о, р, с, т решили использовать двухразрядные последовательные двоичные числа (от 00 до 11 соответственно). если таким способом закодировать последовательность символов торс и записать результат шестнадцатеричным кодом, то получится:

program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.

vara,b: integer; c: real; beginwriteln ('введите 1 число'); read (a); writeln ('введите 2 число'); read (b); c: =(a/1)/(1/b); writeln (c); end.