Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
2nd tsk
function PosLast(substr,s :string):integer; var i,j,k:integer; begin k:=0; j:=1; for i:=1 to length(s) do begin if (s[i] = substr[j]) then begin j:= j+ 1; if (j=length(substr)) then k:=k+1; end else j:=1; end; PosLast:=k; end; var s:string; begin writeln(PosLast('pos', 'pokoposkopos')); end.
run
|
edit
|
history
|
help
0
T
Naloga 8: 10.9.2008
TID_Calculator
ANDERSON MARINS DE SOUZA 600622591
05 ariketa
Martix
Primo1
codigo
test2
janja - popravek