ĐỀ THI TỈNH NĂM HỌC 2014 2015 Bài 1 Số may mắn (5 điểm) Một số được gọi là “số may mắn” nếu nó thỏa mản cả hai yêu cầu sau Là số tiến (Số tiến là số mà các chữ số của nó có giá trị tăng dần) Là số có[.]
ĐỀ THI TỈNH NĂM HỌC 2014-2015 Bài 1: Số may mắn (5 điểm) Một số gọi “số may mắn” thỏa mản hai yêu cầu sau: - Là số tiến (Số tiến số mà chữ số có giá trị tăng dần) - Là số có “nút” (Số “nút” số số dư chia tổng chữ số cho 10) Dữ liệu: Vào từ tập tin văn MAYMAN.INP có dịng ghi số tự nhiên N thỏa mãn 1≤ N≤ 1000000000 Kết quả:L Ghi tệp văn MAYMAN.OUT kết việc kiểm tra xem số N có phải “số may mắn” hay không? Nếu N “số may mắn” ghi dòng chữ “So may man”, ngược lại ghi “Khong phai so may man” Bài 2: Xâu (5 điểm) Viết chương trình nhập từ bàn phím xâu kí tự, đó, tính từ trái sang phải kí tự # dấu hiệu xóa kí tự đứng trước (nếu có) Sau in hình xâu sửa theo qui định Ví dụ: ‘Ta#oi di thi hoc sinua#h###nh gioi tin hoj#c THCS’ có nghĩa ‘Toi di thi hoc sinh gioi tin hoc THCS’ Dữ liệu: Nhập từ bàn phím xâu kí tự cần sửa Kết quả: In hình xâu sửa Bài 3: Phéo chia lấy dư (5 điểm) Viết chương trình thực cơng việc sau: - Nhập vào 10 số nguyên dương N1, N2, N3,…, N9, N10 (mỗi số nhỏ 1000) - Đếm xem có số 10 số chia cho 42 mà có số dư khác Ví dụ: Nhập vào 10 số nguyên dương: 39; 40; 41; 42; 43; 44; 82; 83; 84; 85 Số lượng số nguyên dương chia cho 42 có số dư khác (Các số chia 42 ta số dư là: 39; 40; 41; 0; 1; 2; 40; 41; 1) Bài 4: Số (5 điểm) Trong truy tìm xe tơ chở hàng lậu, nguồn tin cho biết: số biển xe số có chữ số đối xúng Sau cơng an nhận thêm thơng tin: số biển số số nguyên tố Công an dựa vào dự đoán chuyện gia tin học đưa sau phân tích nguồn tin xác định tập số số biển số: biển số viết hệ nhị phân số đối xứng Nhờ mà công an bắt đối tượng Hãy cho biết số mà chuyện gia tin học xác định mà số biển xe mà ơng ta dự đốn bài 1: uses crt; var i:integer; n,k,t,vt:longint; kt:boolean; begin clrscr; t:=0; Write(' Nhap so n: '); Readln(n); k:=n; repeat t:=t+(n-((n div 10)*10)); n:=n div 10; until n mod 10=0; if t-((t div 10 )*10)=9 then kt:=true else kt:=false; vt:=k-((k div 10)*10); k:=k div 10; repeat if (vt>(k-((k div 10)*10))) and (kt=true) then begin kt:=true vt:=k-((k div 10)*10); end; else kt:=false; k:=k div 10; until (k mod 10 =0) or (kt= false); if kt=true then writeln(' So may man') else writeln(' Khong la so may man '); readln; end 2: uses crt; var n,i:integer; c:string; begin clrscr; write(' Nhap xau: '); Readln(c); for i:= n to length(c) if c[i]= '#' then begin delete(c,i,1); delete(c,(i-1),1); end; for i:= to length(c) write(c[i]); readln; end 3: uses crt; var a,b:array[1 100] of integer; i,j,d:integer; begin clrscr; for i:=1 to 10 begin write(' Nhap a[',i,']: '); Readln(a[i]); end; for i:=1 to 10 b[i]:=a[i]-((a[i] div 42)*42); for i:=1 to 11 for j:=i+1 to 10 if b[i]=b[j] then inc(d); writeln('co ',(10-d),' so du khac nhau'); readln; end 4: uses crt; var n,tg,m,i,k:longint; kq,y,c:string; kt:boolean; begin clrscr; write(' Nhap so nguyen he thap phan : '); Readln(n); k:=n; while n0 begin tg:=n mod 2; n:=n div 2; str(tg,y); kq:=y+kq; end; str(k,c); for i:=1 to length(c) m:=length(c); for i:=1 to m if (c[i]=c[m-i+1]) and (kq[i]=kq[m-i+1]) then kt:=true; if kt=true then write(' Dung ') else write(' Sai '); readln; end