давно
Старший Модератор
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.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.