Viết chưong trình nhập vào số nguyên dương n và thực hiện công việc sau: a Hãy cho biết n có là số song tố hay không?. b In ra các số song tố nhỏ hơn n..[r]
(1)PHÒNG GD& ĐT TAM NÔNG ĐỀ KHẢO SÁT HỌC SINH GIỎI TỈNH MÔN : TIN HỌC Thời gian 150 phút ( Không kể thời gian giao đề ) Ngày thi 19 tháng 02 năm 2014 (HỌC SINH THỰC HÀNH TRÊN MÁY TÍNH Lưu bài làm vào thư mục D:\CHONHSG\ BAI ) Câu 1:(6đ) Số nguyên dương n gọi là song tố n là số nguyên tố và tổng chữ số nó là số nguyên tố Viết chưong trình nhập vào số nguyên dương n và thực công việc sau: a) Hãy cho biết n có là số song tố hay không? b) In các số song tố nhỏ n Câu 2:(10đ) Cho mảng A các số nguyên gồm n phần tử Viết chương trình thực các công việc sau: a) Tìm phẩn tử max, mảng A In các số nguyên từ max đến là bội không có mảng A b) Tạo mảng B[1 n] Trong đó B[i] là tổng giá trị i phần tử đầu tiên mảng A S 1 1 ( 1)n B1 B2 B3 Bn c) Tính tổng : d) Đếm và tính tổng các số chính phương có mảng A và mảng B Câu 3:(4đ) Nhập vào xâu S (a z), in ký tự xuất nhiều lần xâu và số lần xuất ? Nếu có nhiều trường hợp thì in trường hợp đầu tiên Ví dụ: Input Output abcaabca a4 bcbsaaba b3 HẾT Chú ý : Học sinh không sữ dụng tài liệu (2) ĐÁP ÁN Program Bai1;(3đ) Uses Crt; Const max = 100; Var A,B:array[1 max] of Integer;i,j,n:integer; Begin Write(' nhap vao so phan tu cua mang'); Readln(n); For i:= to n Begin Write('a[',i,']=');readln(a[i]); End; For i:= to n Write(a[i]:5); For i:= 1to n Begin B[i]:= ; For j:=1 to i B[i]:=B[i]+a[j]; End; For i:= to n Write(B[i]:5); Readln; End Progaram bai2;(3đ) uses crt; const max = 100; var st:string; i,j,max:integer;ch:char; Begin Write(' nhap vao xau ki tu'); readln(st); For ch:= 'a' to 'z' dem[ch]:=0; For i:= to length(st) inc(dem[st[i]]); Max:= dem[st[1]]; For i:= to length(st) if dem[st[i]]> max then max:=dem[st[i]]; i:=1; While dem[st[i]]<>max (3) begin i:=i+1; end; Writeln(' ki tu xuat hien nhieu nhat la:', st[i]); writeln(' so lan xuat hien:',max); Readln; End Progam Bai3;(4đ) Uses Crt; Type Mang= Array[1 10,1 10] of Integer; Var A: Mang; m,n,i,j,S,max:Integer; Begin Write(' nhap vao so dong '); Readln(m); Write(' nhap vao so cot '); Readln(n); For i:= to m For j:=1 to n Begin Write('A[',i,j,']='); Readln(A[i,j]); End; S:=0; For i:= to m { Duyet qua tung dong} Begin { Tim phan tu lon nhat dong i } Max:=A[i,1]; For j:= to n { Duyet tung phan tu cua dong i} If max < A[i,j] then max: = A[i,j]; S:=S+max; Writeln(' Tong cac phan tu lon nhat cua moi dong la:',S); Readln; End; End (4) (5)