|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.11.2008, 21:28 | #1 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
Задача по системам счисления
В файле input.txt два натуральных числа K и N. (0<N<1000000000,1<k<10). Число N дано в десятичной системе счисления. Написать программу перевода числа N в систему счисления K. Записать результат в output.txt.
Пример Input Output 4 111 1233 Помогите пожалуйста!
Программирование - это великое искусство... Такое же как например и живопись!
|
28.11.2008, 23:30 | #2 |
Пользователь
Регистрация: 27.10.2008
Сообщений: 38
|
держи код:
var a:array[1..1000]of byte; cel,i,n,k:longint; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); read(k,n); i:=1; while n<>0 do begin cel:=n div k; a[i]:=n-cel*k; inc(i); n:=cel; end; for k:=i-1 downto 1 do write(a[k]); close(input); close(output); end. Последний раз редактировалось CrazyRabbit; 28.11.2008 в 23:33. |
29.11.2008, 00:24 | #3 |
Форумчанин
Регистрация: 30.03.2008
Сообщений: 392
|
спасибо, так просто получается..(
Программирование - это великое искусство... Такое же как например и живопись!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Системы счисления | vdv08 | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 08.05.2008 17:32 |
помогите сделать задачу(готов заплатить) по операционным системам | XEl | Фриланс | 2 | 23.12.2007 14:32 |