Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Cоставить программу, которая переводит ( НЕСКОЛЬКО чисел, пользователь сам решает, когда закончить перевод ) числа из десятичной системы счисления в шестнадцатеричную. Пожалуйста с пояснением и саму программу

Ответ оставил Гость

Var
s:string;
n,a:integer;
begin
writeln(Введите число (Для закрытия проги введите 0));
readln(n);
while n<>0 do
begin
s:=;
while n <>0 do
begin
a:=n mod 16;
case a of 0: s:=a+s;
1:s:=a+s;
2:s:=a+s;
3:s:=a+s;
4:s:=a+s;
5:s:=a+s;
6:s:=a+s;
7:s:=a+s;
8:s:=a+s;
9:s:=a+s;
10:s:=A+s;
11:s:=B+s;
12:s:=C+s;
13:s:=D+s;
14:s:=E+s;
15:s:=F+s;
end;
n:=n div 16;
end;
writeln(s);
writeln(Введите число (Для закрытия проги введите 0));
readln(n);
end;end.