Theo quan niệm của một số người, biển số xe ô tô, xe máy có hai chữ số tận cùng là 68 được coi là biển số đẹp. Em hãy viết chương trình kiểm tra một biển số xe có số là N bất kỳ có phải là biển số đẹp hay không? (N nhập vào từ bàn phím)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
![](https://rs.olm.vn/images/avt/0.png?1311)
![](https://rs.olm.vn/images/avt/0.png?1311)
Đáp án D
Chọn X từ 24 chữ cái và chọn Y từ 10 chữ số, ta có 24.10=240 (cách chọn).
Chọn 4 chữ số giống nhau từ các chữ sổ ta có 10 cách chọn;
Mỗi bộ gồm 4 chữ số giống nhau, ta có một cách chọn duy nhất 1 chữ số còn lại để tổng các số là số có chữ số tận cùng bằng 8, chẳng hạn: 4 chữ số 0 , chữ số còn lại sẽ là 8 ; 4 chữ số 1, chữ số còn lại sẽ là 4;...; 4 chữ số 9, chữ số còn lại sẽ là 2 ).
Sắp xếp 5 chữ số vừa chọn có 5 cách xếp.
Do đó, có tất cả 10.5=50 (cách chọn số ở dòng thứ hai).
Suy ra có tất cả 240.50=12000 (biển số đẹp).
Chọn 2 biển số trong các biển số "đẹp" ta có C 2000 2 = 71994000 (cách)
![](https://rs.olm.vn/images/avt/0.png?1311)
Bài 1:
uses crt;
var n,kt,d:integer;
st:string;
begin
clrscr;
write('Nhap bien so xe:'); readln(n);
str(n,st);
d:=length(st);
kt:=0;
if (st[d-1]='6') and (st[d]='8') then kt:=1;
if kt=0 then writeln('Day khong la bien so dep')
else writeln('Day la bien so xe dep');
readln;
end.
Bài 2:
uses crt;
var a,b,c:array[1..100]of integer;
n,i,min,x,t,dem,j,dem1,kt,max,min1,y,kt1:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Mang vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Phan tu nho nhat trong mang la: ',min);
write('Nhap i='); readln(y);
for i:=1 to n do
if y=i then
begin
t:=0;
dem:=0;
for j:=1 to a[i] do
if a[i] mod j=0 then
begin
t:=t+j;
dem:=dem+1;
b[dem]:=j;
end;
end;
writeln('Cac uoc cua phan tu a[',y,'] trong mang la: ');
for i:=1 to dem do
write(b[i]:4);
writeln;
writeln('Tong cac uoc cua phan tu a[',y,'] trong mang la: ',t);
dem1:=0;
for i:=1 to n do
if a[i]>1 then
begin
kt:=0;
for j:=2 to a[i]-1 do
if a[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end;
end;
max:=c[1];
min1:=c[1];
for i:=1 to dem1 do
begin
if max<c[i] then max:=c[i];
if min1>c[i] then min1:=c[i];
end;
writeln('Tong cua so nguyen to lon nhat va so nguyen to nho nhat trong mang la: ',max+min1);
write('Nhap x='); readln(x);
kt1:=0;
for i:=1 to n do
begin
if i<x then
begin
for j:=i to x do
if a[j]<>a[x-j+1] then kt1:=1;
end;
end;
if kt1=0 then writeln('Khong co ',x,' so doi xung dung canh nhau')
else writeln('Co ',x,' so doi xung dung canh nhau');
readln;
end.
![](https://rs.olm.vn/images/avt/0.png?1311)
Nếu xe cũ thì biển số xe có 4 chữ số, theo bài ra nó sẽ có dạng aabb.
- Nếu a = 0 thì số đó có dạng 00bb không chính phương
- Nếu a#0, theo bài ra:
aabb=m2<=>1000a+100a+10b+b=m2<=>1100a+11b=m2<=>11(100a+b)=m2<=>11(99a+a+b)=m2(*)
=>99a+a+b phải chia hết cho 11 mà 99a chia hết cho 11=>a+b phải chia hết cho 11, vì 0<a<10 và
0\(\le\)b<10 nên a+b=11(**), khi đó (*)<=>11(99a+11)=m2<=>112(9a+1)=m2=>9a+1 phải chính phương, ta nhận thấy a=7 vì 9.7+1=64=82, theo (**) thì b=4.
Vậy 4 số trên biển số xe là 7744
(Mình chỉ đoán vậy thôi nha, đây không chắc là đáp án)
write('Nhap n: ');readln(n);
str(n,s);
d:=length(s);
if s[d-1]+s[d]='68' then writeln('day la bien so dep')
else writeln('day khong phai bien so dep');