Разрезанное число (Delphi / Pascal)

Поделиться12008-04-24 08:31:56

Автор: SHERRY
Откуда: валяюсь пацталом
Зарегистрирован: 2008-02-02
Приглашений: 0
Сообщений: 1881
Уважение: +35
Позитив: +88
Пол: Мужской
Возраст: 36 [1988-03-11]
Провел на форуме:
3 дня 10 часов
Последний визит:
2023-10-15 03:57:59

Rian, эт тебе. Радуйся!

Разрезанное число

Василий на бумажке в виде полоски написал число кратное D. Его младший брат Дмитрий разрезал число на K частей. Василий решил восстановить написанное число, но столкнулся с проблемой. Он помнил только число D, а чисел, кратных D, можно сложить несколько.
Сколько чисел кратных числу D может составить Василий, если составляя исходное число он использует все части.

Технические условия.
Входные данные:

В первой строке записано два числа, D і K.
В последующих K строках находиться части числа.
1 < = K < 9, 1 < = D < = 100, число были разрезаны на части, количество цифр в которых не превышает 10.

Выходные данные: Eдинственное число - количество разных чисел.

Лимит времени: 1сек
Ввод\Вывод: Файл
Балы за тест: 1

Пример ввода
5 3
13
85
45

Пример вывода
4

0

Поделиться22008-04-24 17:13:22

Автор: Rian
Откуда: UA
Зарегистрирован: 2008-02-02
Приглашений: 0
Сообщений: 317
Уважение: +10
Позитив: 0
Пол: Мужской
Возраст: 36 [1988-03-10]
Провел на форуме:
3 дня 18 часов
Последний визит:
2011-04-03 15:27:01

Таки решил?! Круто! А на контрпримерах проверял?

0

Поделиться32008-04-24 18:30:58

Автор: SHERRY
Откуда: валяюсь пацталом
Зарегистрирован: 2008-02-02
Приглашений: 0
Сообщений: 1881
Уважение: +35
Позитив: +88
Пол: Мужской
Возраст: 36 [1988-03-11]
Провел на форуме:
3 дня 10 часов
Последний визит:
2023-10-15 03:57:59

Проверял на предмет перестановок до 9 чисел (включительно). Если на экран не выводить, то пашет, шо дурное

0

Поделиться42008-04-25 19:10:42

Автор: Rian
Откуда: UA
Зарегистрирован: 2008-02-02
Приглашений: 0
Сообщений: 317
Уважение: +10
Позитив: 0
Пол: Мужской
Возраст: 36 [1988-03-10]
Провел на форуме:
3 дня 18 часов
Последний визит:
2011-04-03 15:27:01

А шо с экраном?

0

Поделиться52008-04-25 21:06:18

Автор: SHERRY
Откуда: валяюсь пацталом
Зарегистрирован: 2008-02-02
Приглашений: 0
Сообщений: 1881
Уважение: +35
Позитив: +88
Пол: Мужской
Возраст: 36 [1988-03-11]
Провел на форуме:
3 дня 10 часов
Последний визит:
2023-10-15 03:57:59

Rian
просто я для проверки работоспособности алгоритма перестановок выводил промежуточные результаты на экран, что занимало очень много времени. ВотЪ. А так - всё ок

0

Поделиться62009-03-05 12:02:08

Автор: MrMozg
Зарегистрирован: 2009-03-05
Приглашений: 0
Сообщений: 8
Уважение: 0
Позитив: 0
Провел на форуме:
1 час 1 минуту
Последний визит:
2009-03-05 16:51:20

А сдать свое решение на e-olimp сдавать не пытался? По времени вкладывается? ( http://e-olimp.com.ua/tasks.php?id=50 )

0

Поделиться72009-03-05 12:21:27

Автор: MrMozg
Зарегистрирован: 2009-03-05
Приглашений: 0
Сообщений: 8
Уважение: 0
Позитив: 0
Провел на форуме:
1 час 1 минуту
Последний визит:
2009-03-05 16:51:20

Ну вот я, наконец, добрался до кода, поспамил по форуму - теперь могу и сказать где программа не работает

Ты уверен что вот это сработает при "1 < = K < 9, 1 < = D < = 100, число были разрезаны на части, количество цифр в которых не превышает 10."????
Каждая из 9-ти частей размером до 10 цифр. Итого длина числа до 80 цифр. Такое число точно корректно обработается функцией StrToInt(s)? Насколько я знаю, размер числа, корректно обрабатываемого этой фукнцией ограничен типом Integer. Да и юниты использовать при решении подобных задач нельзя, т.е. функцию strtoint можешь выкинуть - использовать ее нельзя.
Итого - решение не верное