Cod sursa(job #719018)
Utilizator | Stefan Damian Adr3nal1n | Data | 21 martie 2012 12:24:12 |
---|---|---|---|
Problema | Subsir crescator maximal | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.95 kb |
var i,j,m,n,x,y:integer;
s,t,l:string;
procedure citire;
var f:text;
begin
assign(f,'subsir.in');
reset(f);
readln(f,s);
read(f,t);
end;
function gasit(m,n:integer):boolean;
var i,j:integer;
begin
gasit:=false;
for i:=m to length(s) do
for j:=n to length(t) do
if s[i]=t[j] then begin
gasit:=true;
x:=j;
break;
break;
end;
end;
Procedure calc;
var i,j:integer;
begin
x:=1;
for i:=1 to length(s) do begin
n:=0;
for j:=x to length(t) do
if gasit(i,j) then inc(n);
if n>m then m:=n;
end;
end;
begin
citire;
writeln(m);
readln
end.