Форум: «ЕГЭ по информатике»

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

Если у вас не сходится ответ на какую-то задачу, пожалуйста сразу представляйте свое «правильное» решение.

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

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

program gregre;
var
k, i, c:integer;
s,s1:string;
f:text;
begin
i:=1;
assign(f,'123.txt');
reset(f);
while not eof(f) do begin
readln(f,s1);
s:=s+s1;
end;
i:=1;
while not eof(f) do begin
k:=0;

repeat

if ((s[ i]='Y') and (s[i+1] ='Z' )) then
k:=k+1;
writeln(s[ i],s[i+1],k);
if k>=1 then c:=c+1;
i:=i+1;
until s[ i]=chr(13);
end;
writeln(c);
end.

program gregre;
var
k, i, c:integer;

s,s1:string;

f:text;

begin

i:=1;

assign(f,'123.txt');

reset(f);

while not eof(f) do begin
readln(f,s1); (поскольку файл построкам, склеиваю с помощью конкатанации)
s:=s+s1;
end;

i:=1;
while not eof(f) do begin
k:=0;

repeat

if ((s[ i]='Y') and (s[i+1] ='Z' then

K:=k+1; подсчитаем кол-во "yz" в строке пока не встретим символ переноса строки

i:=i+1; (счетчик сдвига символа)
until s[ i]=chr(13);

If k>1 then c:=c+1; подсчетаем кол-во строк где "yz" встретились больше 1 раза

end;
writeln(c);
end.