Форум » Обработка символьных строк » Задание 24 на PascalABC.NET » Ответить
Задание 24 на PascalABC.NET
23-03-70: Здравствуйте, подскажите, пожалуйста, в чем ошибка в Паскале при решении задания 24 Почему при запуске прогамм задания 24 в PascalABC.NET не получается результата - программа как-бы выполняется до бесконечности... и окно вывода пусто. Получилась только задача из демо варианта вот эта работает var maxLen, curLen, i: integer; s: string; begin assign(input, '24.txt'); readln(s); maxLen := 1; curLen := 1; for i:=2 to Length(s) do if s <> s[i-1] then begin curLen := curLen + 1; if curLen > maxLen then maxLen := curLen; end else curLen := 1; writeln(maxLen); end. А другие нет, например эта begin var s: string; var i, count: integer; assign(input,'k7.txt'); readln(s); count:=0; for i:=1 to Length(s)-2 do if (s in 'BCD') and (s[i+1] in 'BDE') and (s[i+2] in 'BCE') and (s<>s[i+1]) and (s[i+1]<>s[i+2]) then count := count+1; writeln(count); end. Ошибка времени выполнения: System.IO.FileNotFoundException: Файл 'J:\ЕГЭ2021\№24\файлы\k7.txt' не найден.
Ответов - 5
cabanov.alexey: Очевидно, файл не в одной папке с программой.
23-03-70: Нет, всё в одной папке
cabanov.alexey: Значит, вы вводите имя файла неправильно.
Elena_nik: *PRIVAT*
Поляков: Elena_nik пишет: Нет файла k7.txt в папке файлов для задания 24- Это имя файла используется только в разборах.
полная версия страницы