Công an dựa vào dự đoán của một chuyện gia tin học đưa ra sau khi phân tích các nguồn tin và xác định tập các số có thể là số của biển số: biển số nếu viết trong hệ nhị phân cũng là một [r]
Trang 1Bà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ó 9 “nút” (Số “nút” của một số là số dư khi chia tổng các chữ số của nó cho 10)
Dữ liệu: Vào từ tập tin văn bản MAYMAN.INP có một dòng duy nhất ghi một số tự nhiên N thỏa mãn 1≤ N≤ 1000000000
Kết quả:L Ghi ra tệp văn bản MAYMAN.OUT kết quả việc kiểm tra xem số N có phải là “số may mắn” hay không? Nếu N là “số may mắn” sẽ ghi dòng chữ “So may man”, ngược lại ghi “Khong phai so may man”
Bài 2: Xâu đúng (5 điểm)
Viết chương trình nhập từ bàn phím một xâu kí tự, trong đó, nếu tính từ trái sang phải thì kí tự # là dấu hiệu xóa đi một kí tự đứng ngay trước nó (nếu có) Sau đó in ra màn hình xâu đã sửa theo đúng qui định
Ví dụ:
‘Ta#oi di thi hoc sinua#h###nh gioi tin hoj#c THCS’ có nghĩa là ‘Toi di thi hoc sinh gioi tin hoc THCS’
Dữ liệu: Nhập từ bàn phím một xâu kí tự cần sửa
Kết quả: In ra màn 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 hiện công việc sau:
- Nhập vào 10 số nguyên dương N1, N2, N3,…, N9, N10 (mỗi số nhỏ hơn 1000)
- Đếm xem có bao nhiêu số trong 10 số trên chia cho 42 mà có số dư khác nhau
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 các số nguyên dương chia cho 42 có số dư khác nhau là 6
(Các số trên chia 42 ta được các số dư lần lượt là: 39; 40; 41; 0; 1; 2; 40; 41; 0 và 1)
Bài 4: Số đúng (5 điểm)
Trong một cuộc truy tìm một xe ô tô chở hàng lậu, nguồn tin đầu tiên cho biết: số của biển xe là số có
3 chữ số đối xúng
Sau đó công an nhận được thêm thông tin: số biển số là một số nguyên tố Công an dựa vào dự đoán của một chuyện gia tin học đưa ra sau khi phân tích các nguồn tin và xác định tập các số có thể là số của biển số: biển số nếu viết trong hệ nhị phân cũng là một số đối xứng Nhờ vậy mà công an đã bắt đúng đối tượng Hãy cho biết các số mà chuyện gia tin học đã xác định mà số biển xe mà ông ta đã dự đoán đúng
Trang 2uses 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
bài 2:
uses crt;
var n,i:integer;
c:string;
begin
clrscr;
write(' Nhap xau: '); Readln(c);
for i:= n to length(c) do
if c[i]= '#' then
begin
delete(c,i,1);
delete(c,(i-1),1);
end;
for i:= 1 to length(c) do write(c[i]);
readln;
Trang 3uses crt;
var a,b:array[1 100] of integer;
i,j,d:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write(' Nhap a[',i,']: '); Readln(a[i]);
end;
for i:=1 to 10 do
b[i]:=a[i]-((a[i] div 42)*42);
for i:=1 to 11 do
for j:=i+1 to 10 do
if b[i]=b[j] then inc(d);
writeln('co ',(10-d),' so du khac nhau');
readln;
end
bài 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 n<>0 do
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) do
m:=length(c);
for i:=1 to m do
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