Bài giải HSG 9 tin học 2010-2011 tinh Vĩnh Phúc

Bi 1
Uses Crt;
Const Fi='Blimp.INP';
Fo='Blimp.OUT';
Type MA=Array[1 10] Of String[15];
Var s:MA;
F,G:Text;
i,n,d,k,j:Integer;
Procedure Nhap;
Begin
Assign(F,Fi);Reset(F);
ReadLn(F,n);
For i:=1 To n Do
ReadLn(F,S[i]);
Close(F);
End;
Procedure Xu_ly;
Begin
Assign(G,Fo);ReWrite(G);
d:=0;
For i:=1 To n Do
Begin
k:=0;
For j:=1 To LengTh(S[i]) Do
If (S[i][j] in ['A' 'Z']) Or (S[i][j] in ['0' '9']) Or (S[i]
[j] in ['-']) Then k:=k+1;
If (k=LengTh(S[i])) And (Pos('FBI',S[i])<>0) Then
Begin
Write(G,i:3);
d:=d+1;
End;

End;
If d=0 Then Write(G,'GO');
Close(G);
End;
BEGIN
Nhap;
Xu_ly;
END.
Bi 2:
Uses Crt;
Const Fi='lexdiv.inp';
Fo='lexdiv.out';
Type MA=Array[1 100] Of String;
Var i,i1,j1,j2,a,b,k,m:Integer;
s,tg:String;
F,G:Text;
c:MA;
Procedure Nhap;
Begin
Assign(F,Fi);Reset(F);
ReadLn(F,A,B,K);
Close(F);
End;
Procedure Xu_ly;
Begin
Assign(G,Fo);ReWrite(G);
m:=0;
For i:=A To B Do
If i Mod k = 0 Then
Begin

m:=m+1;
Str(i,s);
c[m]:=s;
End;
For j1:=1 To m Do
For j2:=j1+1 To m Do
Begin
i1:=1;
While c[j1][i1]=c[j2][i1] Do i1:=i1+1;
If c[j1][i1]>c[j2][i1] Then
Begin
tg:=c[j1];
c[j1]:=c[j2];
c[j2]:=tg;
End;
End;
Write(G,c[1]:5);
Close(G);
End;
BEGIN
Nhap;
Xu_ly;
END.
Bi 3:
Uses Crt;
Const Fi='prison.INP';
Fo='prison.OUT';
Type MA=Array[1 100] Of Integer;
Var A:MA;
F,G:Text;

s,n,i,j1,j,kt,d,m,k:Integer;
Procedure Nhap;
Begin
Assign(F,Fi);Reset(F);
ReadLn(F,S,N);
Close(F);
End;
Procedure Xu_ly;
Begin
If S Mod 2 =0 Then m:=s*(s*2-1)-1
Else m:=s*(s*2-1);
A[1]:=0;
A[2]:=2*s-1;
For j:=3 To s Do
A[j]:=A[j-1]*2-A[j-2];
A[s+1]:=s-1;
A[s+2]:=2*A[s+1]+s;
For j1:=s+3 To 2*s Do
A[j1]:=A[j1-1]*2-A[j1-2];
kt:=0;
For i:=1 To 2*s Do
If n=A[i] Then kt:=kt+1;
If (kt=0) Then
Begin
If ((n-2*s+1)>=0)And(n-2*s+1<=m)Then Write(G,n-2*s+1:5);
If (n-s>=0)And(n-s<=m)Then Write(G,n-s:5);
If (n-s+1>=0)And(n-s+1<=m)Then Write(G,n-s+1:5);
If (n+s-1>=0)And(n+s-1<=m)Then Write(G,n+s-1:5);
If (n+s>=0)And(n+s<=m)Then Write(G,n+s:5);
If (n+2*s-1>=0)And(n+2*s-1<=m)Then Write(G,n+2*s-1:5);

End
Else
Begin
d:=0;
k:=1;
While n<>A[k] Do
Begin
k:=k+1;
d:=k;
End;
If k=1 Then Write(G,n+s:5,n+2*s-1:5)
Else
If k=s Then Write(G,n-2*s+1:5,n-s+1:5,n+s:5)
Else
If k=s+1 Then Write(G,n+s-1:5,n+2*s-1:5)
Else
If k=2*s Then Write(G,n-2*s+1:5,n-s:5,n+s-1)
Else
If (k>1)and(k<s)Then Write(G,n-2*s+1:5,n-s+1:5,n+s:5,n+2*s-1:5)
Else Write(G,n-2*s+1:5,n-s:5,n+s-1:5,n+2*s-1:5);
End;
End;
BEGIN
Nhap;
Xu_ly;
END.