Форум » Форум, сайт и общие вопросы » Задание24 » Ответить
Задание24
Mari: Не могу понять в чем проблема. Программа не работает с некоторыми файлами. Например, для файла К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
LaviTa: Mari, Вы в программе имя файла меняли на k7-0.txt? Файл и программа находятся в одной папке? Я только что запустила Вашу программу для указанного файла - все работает нормально. И замечание - для вопросов по заданиям есть разделы, соответствующие номеру задания.
полная версия страницы