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

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

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

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.

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

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