Giải đề thi GVDG cấp Huyện Lục Nam 2017

[r]

GIẢI ĐỀ THI GVDG CẤP HUYỆN 2017

1 Trắc nghiệm

Câu 1: B

Câu 2: C

Câu 3: C

Câu 4: A

Câu 5: D

2 Tự luận

Bài 1:

var s,x:real;

n,i,j,gt:word;

Begin

write('Nhap x = ');readln(x);

write('Nhap n = ');readln(n);

s:=1;

for i:=1 to n do

begin

gt:=1;

for j:=1 to i do gt:=gt*j;

s:=s+x/gt;

end;

writeln('Tong S = ',s:0:4);

readln;

end

Bài 2:

var s:real;

n,i:word;

Begin

write('Nhap n = ');readln(n);

s:=1;

for i:=2 to n do s:=sqrt(s+sqrt(i));

writeln('Tong S = ',s:0:4);

readln;

end

Bài 3:

var i,j,k,t,d:word;

begin

d:=1;

for i:=0 to 10 do

for j:=0 to 5 do

for k:=0 to 2 do

if 10*i+20*j+50*k = 100 then

begin

write('Cach ',d,': ');

if i<>0 then write(i:3,' to 10 dong ');

if j<>0 then write(j:3,' to 20 dong ');

if k<>0 then write(k:3,' to 50 dong '); inc(d);

writeln;

end;

readln;

end

Bài 4:

var f1,f2:text;

N,i,j,d:word;

a:array[1 1000] of byte;

Begin

assign(f1,'d:\nhiphan.inp');

reset(f1);

assign(f2,'d:\nhiphan.out');

rewrite(f2);

read(f1,n);

i:=1;

while n<>0 do

Begin

d:=n mod 2;

n:=n div 2;

a[i]:=d;

inc(i);

end;

for j:=i-1 downto 1 do write(f2,a[j]);

readln;

close(f1);close(f2);

end

Bài 5:

var f1,f2:text;

m,n,bc,d:word;

begin

assign(f1,'d:\boi.inp');

reset(f1);

assign(f2,'d:\boi.out');

rewrite(f2);

read(f1,n,m);

bc:=m*n;

d:=n mod m;

while d<>0 do

Begin

d:=m mod n; m:=n;

n:=d;

end;

writeln(f2,bc div m); readln;

close(f1);close(f2); end

Bài 6: