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

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

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.

Похожие ответы
  1. Помогите сделать задание: Строка представляет собой запись целого числа. Составьте программу ее перевода в соответсвующую величину целого типа. заранее спасибо)))

  1. Написать програму перевода любого целого десятичного числа в двоичное зарание спасиба

  1. Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.

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


Нашли ошибку?
Развитие проекта
Яндекс.Метрика