Задача 2. "Прикольный билет"

[Azamat0]

Привет всем! Помогите пожалуйста с задачей на делфи.

Задача 1. "Уравнение для 5 класса"
Имя входного файла: b.in
Имя выходного файла b.out
Ограничение времени: 1 секунда на тест
Ограничение по памяти: 64 Мб

Билет называется прикольным, если его можно разрезать прямой линией на две части таким образом , что оказавшиеся на них числа имеют одинаковые цифровые корни. Чтобы вычислить цифровой корень числа, его цифры складывают. Если результат получается число большее и равное 10 , то цифры полученной сумму складывают снова и так далее, пока не получится число от 0 до 9 - это и есть цифровой корень. Например, цифровой корень числа 423 равен 9.

Таким образом , билет с номером 0015420 является прикольным , так как разрезав его на части с числами 0015 и 420 имеем у этих чисел одинаковые цифровые корни.

Требуется написать программу, которая определит для каждого из четырёх билетов ,является ли прикольным билет с заданным номером

Формат входных данных:
Входной текстовый файл b.in содержит номера 4 билетов - по одному номеру в каждой строке. Номер может начинаться с нулей и содержит не более 100 цифр.

Формат Выходных данных:
Выходной текстовый файл b.out должен содержать четыре строки. В каждой из них должна быть расположена 1, если соответствующий билет прикольный и 0 в противном случае.

Примеры файлов входных и выходных данных:
b.in:
0015420
00100
0015420
0015420
b.out
1
0
1
1


ПРОГРАММА ДОЛЖНА ПОЛНОСТЬЮ СОДЕРЖАТЬСЯ В ОДНОМ ФАЙЛЕ, ИСПОЛЬЗОВАНИЕ СВОИХ МОДУЛЕЙ НЕ ДОПУСКАЕТСЯ.
ПРОГРАММА ДОЛЖНА ЧИТАТЬ ВХОДНЫЕ ДАННЫЕ ТОЛЬКО ОДИН РАЗ.


Заранее всем ОГРОМНОЕ СПАСИБО !!!

[MadReason]

сделаю за оплату, пиши в личку