Автор | Сообщение |
|
Отправлено: 05.05.21 23:24. Заголовок: Задание24
Не могу понять в чем проблема. Программа не работает с некоторыми файлами. Например, для файла К7-0.txt, программа запускается в режиме ввода данных, а не считывает их с файла, хотя с файлом 24.txt все нормально срабатывает. 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.
|
|
|
Ответов - 1
[только новые]
|
|
|
Отправлено: 07.05.21 10:48. Заголовок: Mari, Вы в программе..
Mari, Вы в программе имя файла меняли на k7-0.txt? Файл и программа находятся в одной папке? Я только что запустила Вашу программу для указанного файла - все работает нормально. И замечание - для вопросов по заданиям есть разделы, соответствующие номеру задания.
|
|
|