Đề 12 ôn thi học sinh giỏi môn Tin học 9 cấp tỉnh

ĐỀ THI THỬ SỐ 11

Bài 1. (5 điểm) Tìm số dư

Việt và Nam là hai bạn giỏi Toán và cũng rất đam mê bộ môn Tin học. Một lần
3
3
3
3
Việt đố Nam tính được số dư của biểu thức: S  1  2  3  ...  n (với n là số nguyên
dương cho trước) khi chia cho 2020. Suy nghĩ một hồi Nam vẫn chưa tìm ra cách làm
hiệu quả nhất. Em hãy giúp bạn Nam lập trình giải bài toán trên nhé.
Yêu cầu: Viết chương trình tìm số dư của biểu thức S khi chia cho 2020
1 �n �10 
số nguyên dương n 
8

Dữ liệu vào: Nhập từ bàn phím
Dữ liệu ra: In ra màn hình số dư của biểu thức S khi chia S cho 2020.
Ví dụ:
Dữ liệu vào
Dữ liệu ra
10
1005
1000
1520
5000
1280

Bài 2. (5 điểm)
(a) Hãy viết chương trình Pascal để thực hiện các nhiệm vụ sau đây:

-Nhập từ bàn phím một dãy không qua 30 số ngun
-Kiểm tra rời cho biết dãy sơ vừa nhập có phải là một dãy số không giảm
hay không. Ví dụ dãy 3,5,5,7,7,9 là một dãy số không giảm.
b) Lưu chương trình với tên *.PAS. Chạy thử chương trình với các dãy số
sau đây:
n=5, dãy số là 7,1,5,6,9.
n=6, Dãy số là 19,6,6,6,1,1
n=6, dãy số là 3,5,5,7,7,9
n=5, dãy số là 3,3,3,3,3
Bài 3 (7 điểm) NHỮNG ĐĨA HOA HỒNG
Tơn sư trọng đạo là một truyền thống văn hoá vô cùng tốt đẹp của dân tợc ta.
Để tỏ lịng tri ân đến q thầy cô nhân ngày nhà giáo Việt Nam, các bạn học
sinh lớp. 9A dự định sẽ mua những cành hoa hồng đẹp nhất để tặng cho tất cả
thầy cô trong toàn trường. Theo tìm hiểu của bạn lớp trưởng thì nhà trường có
nthầy cơ giáo, do đó các bạn cần mua n cành hoa hồng. Tại cửa hàng bán hoa,
giá của mỗi cành hoa hồng là m đồng. Tuy nhiên, cửa hàng có chính sách giảm
giá nếu khách hàng mua từ a cành hoa hồng trở lên thì giá bán sẽ giảm 25%.


HƯỚNG DẪN ĐỀ THI THỬ SỐ 11
Bài 1:
Chương trình 1: (Qua test 1,2)
var
r1,n,s,i,r:LongInt;
Begin
read(n);
s:=0;
for i:=1 to n do
s:=s+i*i*i;
Writeln(s mod 2020);

End.
Bai 2
program Day_so_khong_giam;
uses crt;
var a:array[1..30] of integer;
n,i,tang:integer;
begin
clrscr;
write ('Nhap so phan tu cua day so:');
readln(n);
while (n<1) or (n>30) do
begin
write('Nhap lai');
readln(n);
end;
for i:=1 to n do


begin write('Nhap so ',i,':');
readln(a[i]);
end;
tang:=1;
for i:=1 to n-1 do
if a[i]>a[i+1] then inc(tang);
if tang>1 then writeln ('Day so da nhap la khong giam.')
else writeln ('Day so da nhap khong phai la day khong giam.');
readln
end.
Bai 3
Program Cau 2;

Var n,m,a:Longint;
Begin
Write('So hoa can mua = ');
Readln(n);
Write('Don gia mot canh hoa = ');
Readln(m);
Write('So hoa toi thieu de duoc giam gia = ');
Readln(a);
If n>a then
Write('So tien can co = ',n*m)
Else
Write('So tien can co = ',n*m*0.75 :8:0);
Readln;
End.