Форум » Обработка символьных строк » задание 24 (140) » Ответить
задание 24 (140)
Lisa1: Здравствуйте, моя программа выводит 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
Поляков: Неверно обрабатываете строку YYZZ.
полная версия страницы