Nhập vào một số nguyên n hay cho biết số n có bao nhiêu chữ số 5

ÔN TẬP THEO BỘ ĐỀ ĐỀ NGHỊ
Đề1 [TP]
Bài 1. [3,5 điểm]
Viết chương trình nhập từ bàn phím hai số nguyên dương x, y từ bàn phím, in ra màn hình.
a] Tìm các ước chung của x, y và đếm số các ước chung đó.
b] Rút gọn đến tối giản cho phân số x / y.
c] Nhập thêm số nguyên z. Rồi viết chương trình tìm BCNN[x,y,z].
{ Voi x, y nhan gia tri ban đầu ở câu a }
Bài 2. [3,5 điểm]
Viết chương trình nhập vào từ bàn phím một số nguyên dương n [n10000], sau đó tính và in lên
màn hình.
a] Số n có bao nhiêu chữ số ?
b] Tìm tất cả các số hòan hảo nhỏ hơn n.
c] Thực hiện phép biến đổi: Chuyển chữ số lớn nhất của số n lên đầu cùng
Ví dụ N=21095 Kết quả: 92105.
Bài 3. [3 điểm]
Viết chương trình nhập số n rồi tính . S = 1+ [1-2] + [1-2+3] ... [1-2+3-4+ ... n].
Bài 4. [3 điểm] Viết chương trình nhập một số nguyên n từ bàn phím. Chuyển số n vừa nhập thành
số nhị phân ?
Ví dụ: Nhap n= 7
So 7 chuyen thanh so nhi phan la : 111
Nhap n= 101 { La so thap phan }
So 101 chuyen thanh so nhi phan la : 1100101
Bài 5. [7 điểm] Nhập vào một mảng n các số nguyên a[i].
a/ Tìm các phần tử a[i] vừa nhập là các số co tong cac chu so la nguyên tố.
b/ Xếp lại mảng đó theo thứ tự giảm dần.
c/ Nhập vào một số nguyên từ bàn phím. Chèn số đó vào mảng sao cho mảng vẫn có thứ tự
giảm dần. [không được xếp lại mảng].
Đề 2 [QT]
Bài 1 [6,0 đ]:
a] [2,0đ]Viết chương trình tính tổng [làm trònkết quả 4 chữ số thập phân]

S = 1 - x + x2/2! - x3/3! + ... + [-1]nxn/n!
[Với n, x là số nguyên dương nhập từ bàn phím]
b] [4,0đ]Viết chương trình nhập 1 số nguyên dương n, cho biết n có phải là số chính phương
không? có phải số nguyên tố không?
Bài 2 [2,0đ]:
Nhập vào 1 xâu kí tự và cho biết xâu vừa nhập vào có bao nhiêu nguyên âm
và bao nhiêu kí tự số.
Bài 3 [5,0 đ]: Viết chương trình nhập mảng n số nguyên
a] Sắp xếp mảng theo thứ tự giảm dần
b] Cho biết mảng có bao nhiêu số chẳn
c] Nhập số nguyên k, xoá số hạng thứ k vừa nhập của mảng đã sắp xếp.


Ví dụ: n= 10 [Nhập 10 phần tử] Nhập 2, 3, 4, 5, 6, 8, 7, 6, 5, 4.
a]Sắp xếp 8,7,6,6,5,5,4,4,3,2
b] Mảng có 6 số chẳn
c]Nhập k k= 2
Mảng sau khi xóa phần tử thứ 2 là: 8,6,6,5,5,4,4,3,2
ĐỀ 3[LL]
Bài 1: [4đ]
Viết chương trình nhập vào từ bàn phím một số nguyên dương n [n1000], sau đó tính và in lên
màn hình giá trị của T [kết quả lấy đến 6 chữ số thập phân]:
T= 1 +

2 + .... + n [có n dấu căn bậc hai]

Bài 3 : [5đ]: Mảng
Viết chương trình nhập vào một dãy số gồm n số nguyên dương nhỏ hơn 1000 và in ra màn hình :
a. Các số chính phương, số hoàn thiện có trong dãy
b. Trong dãy số trên có bao nhiêu số nguyên tố

c. Tổng các số chẵn có trong dãy trên
d. Sắp xếp dãy số trên theo thứ tự tăng dần.
Bài 4: [7đ]
Viết chương trình cho phép nhập từ bàn phím một số nguyên dương a và thực hiện:
a. Cho biết a là số có mấy chữ số.
b. Cho biết tổng các chữ số của a.
c. Ta gọi số đối xứng với a là số nguyên dương thu được từ a bằng cách đảo ngược thứ tự các chữ
số của a. Viết chương trình in ra số đối xứng của số nguyên dương a.
d. Cho a và b là 2 số nguyên dương. Ta gọi tổng đối xứng của a và b là số đối xứng với tổng của số
đối xứng với a và số đối xứng với b. Viết chương trình cho phép nhập hai số nguyên dương a, b và
in ra tổng đối xứng của chúng.
Ví dụ: Nhập a = 25 thì cho kết quả là:
a. So a co 2 chu so.
b. Tong cac chu so cua a la 7.
c. So doi xung cua a la 52.
d. Nếu a = 25 và b = 26 thì tổng của số đối xứng với a và số đối xứng với b là 52 + 62 = 114. Vì thế
tổng đối xứng của a và b là 411.
ĐỀ 4 [NH]
Bài 1. [4 điểm]
Viết chương trình nhập từ bàn phím hai số nguyên dương, mỗi số gồm ba chữ số và in chi tiết kết
quả phép nhân ra màn hình như ví dụ sau:
456
x
789
-----4104
3648
3192


----------359784

Bài 2: Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tuỳ ý các chữ số bên phải của nó thì
phần còn lại vẫn tạo thành một số nguyên tố.
Ví dụ 7331 là một số siêu nguyên tố có 4 chữ số vì 733, 73, 7 cũng là các số nguyên tố.
Viết chương trình nhập dữ liệu vào là một số nguyên N [0< N 0; kiểm tra điều kiện nhập của n] và thông
báo số vừa nhập có phải là số nguyên tố hay không?
Ví dụ: -9 Nhập sai và yêu cầu nhập lại
1 không phải là số nguyên tố

2 [3, 5, 7, 11] là số nguyên tố
Bài 2: Dãy số nguyên [4 điểm]
Dãy các số tự nhiên được viết ra thành một dãy vô hạn trên đường thẳng:
1234567891011121314..... [1]
Viết chương trình nhập số K [K< 1000] từ bàn phím và in ra trên màn hình kết quả là số nằm ở vị
trì thứ K trong dãy [1] trên
Bài 3: Trộn hai mảng [5 điểm]
Cho 2 mảng A và B đã được sắp xếp theo thứ tự tăng dần. Hãy trộn 2 mảng đó lại với nhau để có
mảng thứ 3 là mảng C với điều kiện mảng C cũng được sắp xếp theo thứ tự tăng dần ngay sau khi
trộn.
Bài 4: Số nguyên tố tương đương [7 điểm]


Hai số tự nhiên được gọi là Nguyên tố tương đương nếu chúng có chung các ước số nguyên tố. Ví
dụ các số 75 và 15 là nguyên tố tương đương vì cùng có các ước nguyên tố là 3 và 5. Cho trước hai
số tự nhiên N, M. Hãy viết chương trình kiểm tra xem các số này có là nguyên tố tương đương với
nhau hay không.
Lời giải :
TT bài

Chương trình mẫu

Điểm

Program nhan_hai_so;
Uses Crt;
Var

m, n: Integer;


0.5

i: byte; l: longint;
Begin
Clrscr;
Repeat
Write['Nhap so co 3 chu so: m= '];Readln[m];

0.5

Write['Nhap so co 3 chu so: n= '];Readln[n];
Until [mm then a[n+1]:=m;

1

For i:=n downto 1 do
if a[i]0] and [n=100] and [m=100] and [n b
then
a:= a-b
else
b:=b-a;
writeln[' UCLN[',a1,';',b1,'] = ',a];
d:=0;
write['cac uoc chung cua ',a1,' va ',b1,'la: '];
for i:=1 to a do
if a mod i =0 then
begin

write[i,';']; d:=d+1;
end;
writeln;
write['co tat ca ',d,' uoc'];
readln;
end.

program bai3_NH;{so nguyen to}
uses crt;
var n,i,tongc,dem:integer;
begin
clrscr;
write['n= ']; readln[n];
{dem cac so le tu 1 den n}
tongc:=0; dem:=0;
for i:=1 to n do
if i mod 20 then
dem:=dem+1;
writeln['so so le tu 1 den ',n,' la: ',dem];


for i:=1 to n do
if i mod 2 = 0 then
tongc:=tongc+i*i;
write['tong binh phuong cac so chan tu 1 den ',n,' la: ',tongc];
readln
end.
program bai1_MH;
uses crt;
var n,i,dem:integer;

begin
clrscr;
repeat
write['n= ']; readln[n];
if n0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1; {dem so uoc cua n}
if dem=2 then write[n,'la so nguyen to']
{neu n co 2 uoc thi n la so
nguyen to}
else write[n,' khong phai la so nguyen to'];
readln
end.