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)
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');
Bài 1: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?
Bài 2:Viết chương trình nhập một mảng số nguyên dương A gồm n phần tử
a.In ra mảng vừa nhập
b.Tìm phần tử nhỏ nhất trong mảng
c.Liệt kê và tính tổng các ước của phần tử A[i] trong mảng với i nhập từ bàn phím?
d.Tính tổng của số nguyên tố lớn nhất với số nguyên tố nhỏ nhất có mặt trong mảng
e.Nhập vào số nguyên dương X,kiểm tra xem trong mảng có X số đối xứng đứng cạnh nhau không?
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.
Một nhóm học sinh đang đi trên đường thì bắt gặp một chiếc xe vi phạm luật an toàn giao thông.khi các chú công an hỏi có nhớ biển số xe không thì các em học sinh nói không nhớ rõ.Nhưng vì rất giỏi toán nên cả 4 em đều nhớ đặc điểm riêng của biển số xe. Em thứ nhất nói rằng biển số xe có hai chữ đầu la AB.Em thứ hai nói hai số đầu của biển số xe giống hệt nhau.Em thứ ba quả quyết rằng hai số cuối của biển số giống nhau.Em cuối cùng nói đó chính là một số chính phương.Tìm các số trên biển số xe.
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)
Biển số xe máy tỉnh K gồm hai dòng
- Dòng thứ nhất là 68 AY, trong đó X là một trong 24 chữ cái, Y là một trong 10 chữ số;
- Dòng thứ hai là abc.de, trong đó a, b, c, d, e là các chữ số.
Biến số xe được cho là “đẹp” khi dòng thứ hai có tổng các số là số có chữ số tận cùng bằng 8 và có đúng 4 chữ số giống nhau. Hỏi có bao nhiêu cách chọn 2 biển số trong các biển số “đẹp” để đem bán đấu giá?
A. 12000
B. 143988000
C. 4663440
D. 71994000
Đá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)
Viết thuật toán và viết chương trình : Nhập vào một số kiểm tra xem số đó có phải là số chính phương hay không
Thuật toán:
-Bước 1: Nhập n
-Bước 2: Nếu \(\sqrt{n}=trunc\left(\sqrt{n}\right)\) thì n là số chính phương
không thì n không phải là số chính phương
-Bước 3: Kết thúc.
Viết chương trình
uses crt;
var n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
if n<0 then writeln(n,' khong la so chinh phuong')
else begin
if sqrt(n)=trunc(sqrt(n)) then writeln(n,' la so chinh phuong')
else writeln(n,' khong la so chinh phuong');
end;
readln;
end.
1)viết chương trình xuất ra các bội số của B trong phạm vị từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím
2) nhập số nguyên n, viết chương trình xem số n có phải là số nguyên tố không
3)viết chương trình kiểm tra C có phải số hoàn hảo hay không
2:
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n,i,kt=0;
cin>>n;
for (int i=2; i*i<=n; i++)
if (n%i==0) kt=1;
if (kt==0) cout<<"YES";
else cout<<"NO";
}
Viết chương trình nhập một mảng gồm n số nguyên (n<= 100). Hãy đưa ra các thông tin sau:a. Tổng số lẻ trong mảng và in ra các số lẻ đó.b. kiểm tra xem tổng đó có phải là số nguyên tố hay không?
uses crt;
var i,n,s: integer;
a:array[1..100] of integer;
begin
writeln('Nhap n: '); read(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
writeln('Cac so le: ')
s:=0;
for i:=1 to n do
if a[i] mod 2 <> 0 then
begin
s:=s+a[i];
write(a[i],' ');
end;
writeln('- Tong so le: ',s);
for i:=1 to trunc(sqrt(s)) do if s mod i = 0 then d:=d+1;
if d > 1 then writeln('Tong do khong la so nguyen to') else writeln('Tong do la so nguyen to');
readln
end.
Viết chương trình nhập vào 3 số a, b, c. Kiểm tra 3 số đó có phải là 3 cạnh của 1 tam giác hay không? Nếu phải, kiểm tra tam giác đó có phải là tam giác đều
uses crt;
var a,b,c:real;
begin
clrscr;
readln(a,b,c);
if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then
begin
if (a=b) and (b=c) then write('Day la tam giac deu')
else writeln('Day khong la tam giac deu');
end
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
Viết chương trình nhập vào một số nguyên dương và kiểm tra xem số đó là số chẳn hay số lẻ. thong báo kết quả sau khi kiểm tra
#include <bits/stdc++.h>
using namespace std;
long long n;
int main()
{
cin>>n;
if (n%2==0) cout<<"Chan";
else cout<<"Le";
return 0;
}
