Cod sursa(job #873356)
Utilizator | Data | 7 februarie 2013 09:15:51 | |
---|---|---|---|
Problema | Potrivirea sirurilor | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva educationala | Marime | 0.39 kb |
program Noname49;
var a,b,filename:string; i:integer;
fl:text;
begin
assign(fl,'strmatch.in');
reset(fl);
readln(fl,a);
readln(fl,b);
close(fl);
repeat begin
if (pos(a,b) > 0) then begin
c:=c+1;
delete(b,pos(a,b),1);
end;
end;
until pos(a,b) = 0;
assign(fl,'strmatch.out');
rewrite(fl);
writeln(fl,c);
close(fl);
WriteLn(c);
Readln;
end.