:: Игры Разума
Re: Вопросы на собеседовании 8A
piva
Автор

Сообщений: 18655
Откуда: Курган
Дата регистрации: 24.03.2004
* Q.PRG
If Type("_COUNT") # "N"
Public _COUNT
_COUNT=0
EndIf
If _COUNT < 1000
_COUNT=_COUNT+1
Activate Window Puzzle
_SHELL="DO Q.PRG"
Else
Release _COUNT
EndIf


------------------
Часто бывает так, что есть над чем задуматься, а нечем.
Ratings: 0 negative/0 positive


Извините, только зарегистрированные пользователи могут оставлять сообщения в этом форуме.

On-line: 5 (Гостей: 5)

© 2000-2024 Fox Club 
Яндекс.Метрика