Цитата:
Сообщение от Эффект массы
Спасибо большое, единственное, что программа на все цифры отвечает "нет"
|
Так.
Ну, прежде всего, еще и еще раз повторю: до тех пор, пока программа не будет мною тщательно оттестирована, я ее не выложу. Пожалуйста:
Почему не работает у Вас? Подозреваю, что дело в этом глючном богомерзком поделии по имени АВС, каковым не пользуюсь и не собираюсь.
Возможно, затык на логическом отрицании. Попробуйте заменить условия
not p
и
not D
на
not(p)
и
not(D)
или на
p=false
и
D=false.
Авось так сожрёт. Мой FreePascal кушает все варианты и не давится. Потому как нормальный транслятор.