Автор | Сообщение |
|
Отправлено: 13.10.20 18:32. Заголовок: Задание 24 на PascalABC.NET
Здравствуйте, подскажите, пожалуйста, в чем ошибка в Паскале при решении задания 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
[только новые]
|
|
|
Отправлено: 13.10.20 18:56. Заголовок: Очевидно, файл не в ..
Очевидно, файл не в одной папке с программой.
|
|
|
|
Отправлено: 13.10.20 20:13. Заголовок: Нет, всё в одной пап..
Нет, всё в одной папке
|
|
|
|
Отправлено: 13.10.20 20:59. Заголовок: Значит, вы вводите и..
Значит, вы вводите имя файла неправильно.
|
|
|
|
Отправлено: 21.05.22 06:15. Заголовок: Нет файла k7.txt в папке файлов для задания 24
*PRIVAT*
|
|
|
|
| Администратор
|
Сообщение: 3553
|
|
Отправлено: 21.05.22 06:40. Заголовок: Elena_nik пишет: Нет..
Elena_nik пишет: цитата: | Нет файла k7.txt в папке файлов для задания 24- |
|
Это имя файла используется только в разборах.
|
|
|
|