Артур дент узнал, что земля вскоре будет уничтожена. к сожалению, сообщивший ему эти
известия форд префект куда-то запропастился, оставив лишь карту порталов.
оказывается, если у тебя есть друг-инопланетянин, то в солнечной системе не 8 планет, а целых
n. планеты пронумерованы от 1 до n по удаленности от солнца. так совпало, что планета с номером
i имеет порталы на все планеты с номером, большим i, и не имеет ни одного портала на предыдущие
планеты. каждый портал контролируется одной из двух банд пришельцев.
считается, что система порталов конфликтная, если существует пара планет (a, b) такая, что с
планеты a можно добраться до планеты b как только по порталам первой банды, так и только по
порталам второй банды.
если система порталов оказывается конфликтной, банды спорят друг с другом, пока не устранят
разногласия. так как у обоих банд бессмертие уже является нормой, споры могут длиться бесконечно долго, причем всё это время все порталы системы функционировать не будут. если же система
порталов не конфликтная, по ней можно беспрепятственно перемещаться.
артуру хочется выяснить, сможет ли он использовать систему порталов для побега с земли,
либо ему следует начать паниковать.
формат входных данных
первая строка содержит целое число n (3 6 n 6 1000) — количество планет.
следующая n − 1 строка содержит описание порталов. в i-й из этих строк содержится n − i
символов, j-й из которых определяет принадлежность портала из планеты i в планету i + j и равен
r, если это портал первой банды, и b, если второй.
формат выходных данных
выведите «yes», если артур сможет используя систему порталов. если же использовать ее не получится, а артуру следует начинать паниковать, выведите «no».
Program Pr1;
uses crt;
var fl1,fl2:text;
i,n,v,a,b:integer;
Begin
clrscr;
assign(fl1,'input.txt');
assign(fl2,'output.txt');
reset(fl1);
readln(fl1,n);
v:=0;
for i:=1 to 1000000 do begin
if i>=10 then begin
a:=i div 10;
b:=i mod 10;
if (a mod 2<>0) and (b mod 2<>0) then v:=v{?} 1; {здесь либо пропущен знак либо v1-новая переменная не перечисленная в списке описания переменных}
end
else if i mod 2<>0 then v:=v 1;{здесь тоже самое}
if v=n then break;
end;
rewrite(fl2);
writeln(fl2,v);
close(fl1);
close(fl2);
end.