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

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

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


textual

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

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.
Эта работа вам не подошла?

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


СДЕЛАЙТЕ РЕПОСТ

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

Источник