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)
K
Khách
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.
Những câu hỏi liên quan
CM
4 tháng 10 2019
Đá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)
18 tháng 10 2020
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.
HT
9 tháng 11 2014
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');