Автор | Сообщение |
|
Отправлено: 28.01.21 18:36. Заголовок: задание 24 (140)
Здравствуйте, моя программа выводит 434, хотя в ответах 433, где она может набирать лишнюю единицу? var f:text;s:string;k,i,q:integer; begin assign(f,'24-s1.txt'); reset(f); while not eof(f) do begin readln(f,s); if pos('YZ',s)>0 then delete(s,pos('YZ',s),2); if pos('YZ',s)>0 then q:=q+1; end; close(f);write(q); end.
|
|
|
Ответов - 1
[только новые]
|
|
|
| Администратор
|
Сообщение: 2366
|
|
Отправлено: 28.01.21 21:41. Заголовок: Неверно обрабатывает..
Неверно обрабатываете строку YYZZ.
|
|
|