Форум » Обработка символьных строк » задание 24 задача 144 » Ответить
задание 24 задача 144
Еленка: Текст моей программы далёк до идеала.[pre2] var i, k, k5: integer; s: string; begin readln(s); k:=1; k5:=0; for i:=2 to Length(s)-1 do begin if s[i-1] < s[ i ] then begin k := k + 1; if (k=5) and (s[ i ]>s[i+1]) then k5:=k5+1; end else k:=1; end; writeln(k5); end.[/pre2]Понимаю, что последняя последовательность не будет обработана правильно. Но выводит результат 63. В ответе 2087. Даже близко не стоит. В каком месте ошибка?
Ответов - 1
EugeneJobs: Задача на чтение файла, с большой вероятностью при чтении из командной строки 1000000 символов, строка читается не полностью Также 1000000 могло не влезть в тип integer.
полная версия страницы