Консультация № 129014
25.03.2008, 16:28
0.00 руб.
0 1 1
Здравствуйте, уважаемые эксперты.
Задачка на системы счисления:
даны два натуральных числа D и N (2<=n<=16)
Организовать перевод целого десятичного числа D в N-ичную систему счисления.
Решение неоюходимо на Basic или Pascal
Заранее благодарю.

Обсуждение

давно
Старший Модератор
31795
6196
25.03.2008, 16:47
общий
это ответ
Здравствуйте, Lommm!

Программа на Паскале в приложении.
Удачи!

Приложение:
var d,n:word; s:string; begin write(‘D:‘);readln(d); repeat write(‘N:‘);readln(n); until (n>1)and(n<17); s:=‘‘; while d>0 do begin s:=chr((d mod n)+48+7*ord((d mod n)>9))+s; d:=d div n; end; writeln(s); end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа