Bài soạn dap an HSG 11

BAI 1:

Program xau;

var

s:string;

1:Byte;

Begin

Write('Moi nhap xau: ');

Readln(s) ;

Writeln('Xau vua nhap: ',s);

For i:=length(s) downto 1 do write(s[i]);

Readln;

End

BAI 2:

Program mang2chieu;

Var

Max: integer ;

N,1,j: Byte;

Begin

Write('Moi nhap N=');

ReadLn (N) ;

Writeln('Mo1 nhap cac phan tu mang: ');

For i:=1 to N do

For j:=1 to N do Begin

write('A[',1i,',',j,',',']'); readin (A[i,j])

End;

Max: =A[1, 1 ] ;

Write('Cac phan tu tren duong cheo chinh: '); For i:=1 to N do

For j:=1 to N do Begin

if i=j then write(a[i,j],' ');

1f Max<A[i,j] then Max:=A[i,j]; end;

Writeln;

Writeln('Gia tri lon nhat= ' ,Max) ;

Write('Vi tri: ');

For i:=1 to N do

For j:=1 to N do

If A[i,j]=Max then write('(',1,',',j,')'); Readln

End

BAI 3:

Var

S: integer ;

N,1,dau, cuoi: Byte;

Begin

Write('Moi nhap N=');

ReadLn (N) ;

Writeln('Mo1 nhap cac phan tu mang: ');

For i:=1 to N do

Begin

write('A[',i,']J=');

readln (A[1]) ; End;

While A[i]<>0 do 1:=1+1;

Dau: =1;

1:=N;

While A[i]<>0 do 1:=1-1;

Cuo1 :=1;

FEor 1:=dau to CUuOI do S:=S+A[1];

Writeln('Tong cac so giua 2 so 0= ',S);

Readln

End

BÀI 4:

Var

R,S,1,)J,d:Word;

T:Word;

Begin

Write('Moi nhap R, S:');

Readln (R,S) ;

Write('Cac so hoan thien: ');

d:=0;

For 1:=R to S do

Begin T:=0;

For j:=1 to i-1 do 1£ 1 mod J=0 then T:=T+1J; 1£ T=1 then

Begin d:=d+1;

write(1,' ');

end;

End;

If d=0 then Write('khong tim thay') ; Readln;

End