Kỳ thi chọn học sinh giỏi cấp tỉnh môn Tin học Lớp 9 - Năm học 2013-2014
Bài 1. (6.0 điểm) :Tách số: Ten file chương trình: Tachso.Pas
Viết chương trình tách số nguyên dương A (A<200) thành tổng của hai số nguyên dương x và y sao cho ước chung lớn nhất d của x và y là lớn nhất trong các cách phân tích có được.
Yêu cầu:
● Dữ liệu vào: File text Tachso.INP chỉ có 1 dòng chứa số nguyên dương A.
● Dữ liệu ra: File text Tachso.OUT gồm 2 dòng:
- Dòng 1: Ghi số nguyên dương A.
- Dòng 2: Ghi ba số nguyên dương x, y, d; Các số cách nhau ít nhất một khoảng trắng.
Ví dụ:
| Tachso.INP | Tachso.OUT |
| 95 |
95 19 76 1 9 |
3 trang
05/03/2023
4620
Bạn đang xem tài liệu "Kỳ thi chọn học sinh giỏi cấp tỉnh môn Tin học Lớp 9 - Năm học 2013-2014", để tải tài liệu gốc về máy hãy click vào nút Download ở trên.
File đính kèm:
- ky_thi_chon_hoc_sinh_gioi_cap_tinh_mon_tin_hoc_lop_9_nam_hoc.doc
Nội dung text: Kỳ thi chọn học sinh giỏi cấp tỉnh môn Tin học Lớp 9 - Năm học 2013-2014
- Bài 2. (7.0 điểm) Khai triển Cantor Tên file chương trình: Cantor.PAS Khai triển Cantor của số tự nhiên N là biểu diễn số N dưới dạng: N= ak.k! + ak-1.(k-1)! + + a2.2! + a1.1! Trong đó: 0 ≤ ak ≤ k và k!= 1.2.3 (k-1).k Viết chương trình liệt kê các hệ số a k, ak-1, , a3, a2, a1 trong khai triển Cantor của số tự nhiên N (N n do fo='Cantor.out'; Assign(f,fi); s:=s-1; Var n,k,s:Word; Reset(f); Write(f,s,' '); f:text; Readln(f,n); n:=n-gt(k)*s; Function gt(n:Byte):Word; Assign(f,fo); k:=k-1; Var i:Byte; Rewrite(f); Until n=0; p:Word; Writeln(f,n); If k>0 then Begin k:=1; For s:=1 to k do p:=1; While gt(k)<n do Write(f,0,' '); For i:=2 to n do k:=k+1; Close(f); p:=p*i; k:=k-1; End.
