Pascal

[Romasha71]

Доброе время суток! Нужна помощь, надо написать программу на паскаль абс:

В стране *** используется тридцативдуричная система счисления.
Необходимо написать программу для почтовой и таможенной службы, которая пересчитывает вес М поступающих посылок и грузов из России в вес N системы измерения этой страны. Считать исходный вес целочисленным, максимальное значение М<=30000.
Формат входных данных. В первой и единственной строке входного файла input.txt находится значение веса М (целое число).
Формат выходных данных. В первой и единственной строке выходного файла output.txt должно находиться искомое целое число N - вес в единицах этой страны.

Заранее спасибо!

[MembRupt]

Перевод из 10-тичной в 32-ричную систему счисления
Думаю алгоритмов полно в интернете, вкратце:
Пусть переменная X = М
1) X делишь на 32, получаешь остаток и неполное частное
2) Остаток сохранить, а X нужно сделать равным неполному частному
3) Повторять шаг один, пока X>=32
4) Все остатки записать в обратном порядке - искомое число

[Romasha71]

как быть с буквами, ведь 32сс это: 0123456789ABCDEFGHIJKLMNOPQRSTUV ?

[MembRupt]

Цитата: Сообщение от Romasha71 как быть с буквами, ведь 32сс это: 0123456789ABCDEFGHIJKLMNOPQRSTUV ?

Ну так в английском алфавите 26 букв, с цифрами будет 36 символов, а нужно всего 32

[Romasha71]

да, я понял, но как сделать так, чтобы к полученному числу (например 10) присваивалась бука А?

[MembRupt]

Вывод можно сделать строкой. Тогда, если текущий разряд X меньше 10, то печатаем в файл chr(ord('0')+X), иначе chr(ord('A')+X-10)

[Romasha71]

Спасибо большое!!