Для групповых операций с файлами используются маски имён файлов. Маска представляет собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых также могут встречаться следующие символы: символ «?» (вопросительный знак) означает ровно один произвольный символ, символ «*» (звёздочка) означает любую последовательность символов произвольной длины, в том числе «*» может задавать и пустую последовательность. Определите, какое из указанных имен файлов удовлетворяет маске ?ba*r.?xt. Укажите правильный вариант ответа:
Barr.txt
Bar.txt
Obar.txt
Obar.xt
выводит черный экран, и ждет нажатия любой клавиши.
Как будто readln работает а writeln нет.
Сначало пробовала TP7, потом попробовала BP7, ситуация и там и там одинаковая.
Раньше, где-то пол года назад все работало.
А сейчас просто черный экран.
И программы написанные раньше также
не работают, черный экран и все.
Может кто сталкивался с подобным.
На компе также установлен, delphi3, и delphi7.
Только в университет работу нужно сдавать именно в паскале.
Итак. Мы имеем строку из 72 пятерок.
Сначала все пятерки заменяются на тройки (приоритетным действием у нас является замена первого вхождение трех идущих подряд пятерок тройками, а т.к. 72 кратно трем, то преобразованная строка будет состоять только из троек). После этого у нас остается строка, состоящая из 24 троек.
555 555 555 555 ... 555 => 333 333 333 333 333 333 333 333
Затем происходят такие действия: три последовательно идущие тройки заменяются на пятерки, а после того как таких пятерок будет три, они заменятся на одну тройку. Следственно 9 троек заменяются на одну. После проведение данных действий у нас остается 24-9+1-9+1=16-9+1=8 троек.
333 333 333 333 333 333 333 333
555 333 333 333 333 333
333 333 333 333 333 3
555 333 333 3
333 333 33
Так как мы уже не можем получить заменой троек хотя бы три пятерки, то первые вхождения трех подряд идущих троек заменяются пятерками.
333 333 33
5 333 33
5533
ответ: 5533