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

Tuyển tập đề ôn thi học sinh giỏi môn tin 9 cấp tỉnh, Đề thi học sinh giỏi tin 9, đề thi môn tin 9 cấp tỉnh, ôn thi học sinh giỏi môn tin 9, Tổng hợp đề thi môn tin 9 cấp tỉnh, tài liệu ôn thi môn tin 9 cấp tỉnh, đề thi có đáp án môn tin 9.

ĐỀ THI THỬ SỐ 11 Bài (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 Việt đố Nam tính được số dư của biểu thức: S      n (với n là số nguyên dương cho trước) chia cho 2020 Suy nghĩ một hồi Nam vẫn chưa tìm 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 nhé Yêu cầu: Viết chương trình tìm số dư của biểu thức S chia cho 2020 �n �10  số nguyên dương n  Dữ liệu vào: Nhập từ bàn phím Dữ liệu ra: In màn hình số dư của biểu thức S chia S cho 2020 Ví dụ: Dữ liệu vào Dữ liệu 10 1005 1000 1520 5000 1280 Bài (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ố nguyên -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 (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ô tốt đẹp của dân tộc ta Để tỏ lịng tri ân đến q thầy nhân ngày nhà giáo Việt Nam, các bạn học sinh lớp 9A dự định mua cành hoa hồng đẹp nhất để tặng cho tất cả thầy cô toàn trường Theo tìm hiểu của bạn lớp trưởng thì nhà trường có nthầy giáo, 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 cành hoa hồng là m đồng Tuy nhiên, cửa hàng có chính sách giảm giá khách hàng mua từ a cành hoa hồng trở lên thì giá bán 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 s:=s+i*i*i; Writeln(s mod 2020); End Bai 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 (n30) begin write('Nhap lai'); readln(n); end; for i:=1 to n begin write('Nhap so ',i,':'); readln(a[i]); end; tang:=1; for i:=1 to n-1 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 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  ... 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