forked from victor-yacovlev/kumir2
-
Notifications
You must be signed in to change notification settings - Fork 14
Open
Description
Возможно, я делаю что-то не то, но вместо чтения из файла похоже, что КуМир пытается читать с консоли (см., что написано внизу в строке состояния).
Кумир 2.1.0-rc11, Windows
Код программы:
использовать Файлы
файл вхъ
сим с1,с2
цел макс,к
алг
нач
вхъ := открыть на чтение("C:\promo.yar\кумир\37131\24.txt")
начать чтение(вхъ)
к := 1
макс := 0
ввод вхъ,с1
нц пока есть данные(вхъ)
с2 := с1
ввод вхъ,с1
если с2 = 'K' и с1 = 'L' или с1 = 'K' и с2 = 'L' то
если к > макс то
макс := к
все
к := 1
иначе
к := к + 1
все
кц
если к > макс то
макс := к
все
вывод макс
кон
Metadata
Metadata
Assignees
Labels
No labels