Программа перевода из 10 сс в 16 сс на Паскале.
(как можно проще, используя функции, процедуры...)

Заранее спасибо.

Var 
d,n: longint; 
   h:string; 
begin 
   write(n?); 
   readln(n); 
   repeat 
       d:= n mod 16; 
       ifd < 10 then 
           h:= chr(ord(0) + d) + h 
       else 
           h:= chr(ord(A) - 10 + d) + h; 
       n:= n div 16; 
   untiln = 0; 
   writeln(h,h); 
     end

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.