Перевести данное число из десятичной системы счисления в двоичную ,восьмеричную и...

Question

Перевести данное число из десятичной системы счисления в двоичную ,восьмеричную и шестнадцатиричную системы счисления 61(10)

Answer 1

61/2=30 (остаток 1)30/2=15 (остаток 0)15/2=7 (остаток 1)7/2=3 (остаток 1)3/2=1 (остаток 1)1/2=0 (остаток 1)Записываем остатки в обратном порядке, это и будет ответ111101

61/8=7 (остаток 5)7/8=0 (остаток 7)Записываем остатки в обратном порядке, это и будет ответ75

61/16=3 (остаток 13)3/16=0 (остаток 3)Записываем остатки в обратном порядке, это и будет ответ3D

Comments

Что-то пошло не так...

---

А вообще, вот тебе такая хитрая штука))) Только что написал

---

var
num,sys,i:integer;
s:string;
begin
writeln('Введите число в десятичной системе счисления и систему счисления (не более 16), в которое перевести число (например 61 2)');
readln(num,sys);
while num<>0 do
begin
write(num,'/',sys,'=',num div sys,' (остаток ',num mod sys,')');

---

case num mod sys of
1..9:s:=s+inttostr(num mod sys);
10:s:=s+'A';
11:s:=s+'B';
12:s:=s+'C';
13:s:=s+'D';
14:s:=s+'E';
15:s:=s+'F';
end;
writeln;
num:=num div sys;
end;
writeln('Записываем остатки в обратном порядке, это и будет ответ');
for i:=length(s) downto 1 do
write(s[i]);
end.

---

Вставь в паскаль и будет тебе счастье