Перевод целого числа из десятичной системы счисления в шестнадцатеричную - Pascal

Формулировка задачи:

Нужно написать программу на Паскале. Помогите пожалуйста. И чем проще будут записи,тем лучше, я чайник в программировании.

Код к задаче: «Перевод целого числа из десятичной системы счисления в шестнадцатеричную - Pascal»

textual
uses crt;
const zn:string[16]='0123456789ABCDEF';//цифры в СС 16
var n:longint;
    s:string;
begin
clrscr;
write('Число в системе 10=');
readln(n);
s:='';
while n>0 do
 begin
  s:=zn[n mod 16+1]+s;//берем остаток от деления на 16 и эту цифру пишем в начало строки
  n:=n div 16;//сокращаем
 end;
write('      В системе 16 =',s);
readln
end.

13   голосов, оценка 4.154 из 5


СОХРАНИТЬ ССЫЛКУ