Ne verujem da na takmicenju traze da radis sa pos funkcijom, ali ako je tako...
Code:
var
i, poz: integer;
s:string;
begin
readln(s);
i := 9;
repeat
dec(i);
poz:=pos(copy('11111111',1,i),s);
until (i=1) or (poz>0);
writeln(i:3, poz:3);
end.
i malo bezobraznije bez copy i varijable i....
Code:
var
s, j:string;
poz: integer;
begin
j := '11111111';
readln(s);
repeat
poz:=pos(j,s);
dec(j[0]);
until (j[0]=#0) or (poz>0);
writeln(byte(j[0])+1:3, poz:3);
end.
Mislim da se trazi da sa jednim prelaskom kroz string pronadjes maksimum i poziciju u stringu, a ovo sto sam napisao nije to.
[Ovu poruku je menjao Toyo dana 14.08.2005. u 13:19 GMT+1]