На этом форуме отвечают на конкретные вопросы. Фраза «я не понимаю, как решать» — это не вопрос. На вопрос «как решить задачу №X» вас отошлют к материалам сайта kpolyakov.spb.ru. За бессвязный поток слов и неспособность формулировать свои мысли — бан.

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.
Программы "заворачивайте" в тэг [pre2]...[/pre2], при этом сохраняются все отступы и применяется моноширинный шрифт. Если у вас используется сочетание "[i]" для обозначения элемента массива или строки, ставьте пробел после открывающей скобки. Иначе система выделит все дальнейшее курсивом.

Для регистрации на форуме щелкните по ссылке «Вход-регистрация» вверху страницы. В открывшееся окошко «ник» введите свою фамилию на русском языке (например, Иванов). В окошко «пароль» введите придуманный вами пароль, состоящий из латинских букв и цифр. Поставьте галочку в окошке «зарегистрироваться, я новый участник» и нажмите кнопку «ОК».

АвторСообщение
23-03-70



Сообщение: 1
ссылка на сообщение  Отправлено: 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' не найден.

Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 5 [только новые]


cabanov.alexey





Сообщение: 289
ссылка на сообщение  Отправлено: 13.10.20 18:56. Заголовок: Очевидно, файл не в ..

Очевидно, файл не в одной папке с программой.

Discussio mater veritas est Спасибо: 0 
ПрофильЦитата Ответить
23-03-70



Сообщение: 2
ссылка на сообщение  Отправлено: 13.10.20 20:13. Заголовок: Нет, всё в одной пап..

Нет, всё в одной папке

Спасибо: 0 
ПрофильЦитата Ответить
cabanov.alexey





Сообщение: 290
ссылка на сообщение  Отправлено: 13.10.20 20:59. Заголовок: Значит, вы вводите и..

Значит, вы вводите имя файла неправильно.

Discussio mater veritas est Спасибо: 0 
ПрофильЦитата Ответить
Elena_nik





Сообщение: 2
ссылка на сообщение  Отправлено: 21.05.22 06:15. Заголовок: ­Нет файла k7.txt в папке файлов для задания 24

*PRIVAT*

Спасибо: 0 
ПрофильЦитата Ответить
Поляков
Администратор




Сообщение: 3553
ссылка на сообщение  Отправлено: 21.05.22 06:40. Заголовок: Elena_nik пишет: Нет..

Elena_nik пишет:
 цитата:
Нет файла k7.txt в папке файлов для задания 24-

Это имя файла используется только в разборах.

___________________________________________________
Имей мужество пользоваться собственным умом. (И. Кант)		 Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума 		Все даты в формате GMT  3 час. Хитов сегодня: 1577
Права: смайлы да, картинки да, шрифты нет, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет



Создай свой форум на сервисе Borda.ru
Форум находится на 3 месте в рейтинге
Текстовая версия