MOT SO BAI TAP ON 1

MỘT SỐ BÀI TẬP Bài 1: (6 điểm) ; Viết chương trình nhập vào dãy số nguyên A, B có n phần tử khác ( n nhập khơng 50) Giá trị phần tử lớn dãy không 1000 Hãy tạo dãy C có kết hòa hai dãy A B cho phần tử C có giá trị tăng dần ? In kết dãy hình Vd : ta có A=[2 24 30] B=[1 10 15 21] Kết C=[1 4 10 15 21 24 30] Bài 2: (7 điểm) Viết chương trình nhập vào chuỗi S sau ghi file KETQUA.TXT kết quả: chuỗi gồm ký tự chuỗi S tổng giá trị ký tự số chuỗi S Ví dụ : S=’A312BC24DE’ S1=ABCDE Tổng=12 Bài 3: Viết chương trình phân tích số ngun dương N thành thừa số ngun tố Ví dụ: N=100 in 2*2*5*5 100=2*2*5*5 N=13 in 13 13 số nguyên tố 29/ Nhập vào bàn phím hai chuỗi s1,s2 không 255 ký tự gồm ký tự số có lẫn loại ký tự khác Xóa hết ký tự ký tự số chuỗi, loại bỏ kí tự ‘0’ đầu chuỗi có để thu hai số (Nếu chuỗi rỗng trả số 0) - In hình hai số thu - In hình tổng hai số Ví dụ: Nhap chuoi thu nhat : ‘abc0123d@4$5]’ Nhap chuoi thu hai: ‘*\def56ab7’ So thu nhat: 12345 So thu hai : 567 Tong : 12912 Bài 4: Số hoàn hảo (6đ) Số n gọi số hoàn hảo, tổng ước số n (khơng kể n) Ví dụ: 28 = + + + + 14 số hồn hảo Viết chương trình (Pascal) cho nhập n ngun, dương từ bàn phím In hình : - Các ước số n (không kể n) - Xác định n có phải số hồn hảo - Tất số hoàn hảo phạm vi từ n Bài 5: Cặp số thân thiết (7đ) Hai số nguyên dương gọi thân thiết chúng có ước số nguyên tố lớn Hãy viết chương trình kiểm tra xem hai số nguyên dương có cặp số thân thiết hay khơng? Dữ liệu vào hai số nguyên dương a, b (1< a, b < 1010) nhập từ bàn phím Cặp số gọi thân thiết tổng ước a b tổng ước b a var a,b:integer; function tu(n:integer):integer; var i,tong:integer; begin tong:=0; for i:=1 to n if n mod i=0 then tong:=tong+i; tu:=tong; end; begin readln(a,b); if (tu(a)=b) and (tu(b)=a) then Write('cap so than thiet') else write('cap so khong than thiet'); readln end Bài 6: Thống kê: Phòng giáo dục quản lí học sinh cấp học: Mầm non, tiểu học, THCS Số học sinh quản lí có độ tuổi từ đến 15 tuổi Để phục vụ cho việc báo cáo, phòng giáo dục cần thống kê số học sinh theo độ tuổi Yêu cầu: Hãy viết chương trình giúp phòng giáo dục thống kê số lượng học sinh theo độ tuổi Dữ liệu: Cho từ file văn có tên THONGKE.INP có cấu trúc sau: - Dòng đầu ghi số N (Nb then a:=a-b else b:=b-a; ucln:=a; end; begin assign(f1,'d:\input.txt'); reset(f1); readln(f1,n); for i:=1 to n read(f1,a[i]); so:=a[1]; for i:=2 to n so:=ucln(so,a[i]); assign(f2,'d:\output.txt'); rewrite(f2); write(f2,so); close(f1); close(f2); readln end Bài 7: Số phương Số phương số tự nhiên có bậc hai số t ự nhiên, hay nói cách khác, số phương bình phương (lũy thừa bậc hai) c m ột t ự nhiên Cho số nguyên dương N (N