"dòng chữ tinh ranh" dc cấu tạo như sau:1 dòng số là luỹ thừa 4 của các số nguyên tố từ nhỏ đến lớn và ko có dấu cách giữa các số. VD:16816252401....
viết chương trình xác định chữ số ở vị trí k(với k>=50000) của dòng chữ tinh ranh
..."> ..." />
"dòng chữ tinh ranh" dc cấu tạo như sau:1 dòng số là luỹ thừa 4 của các số nguyên tố từ nhỏ đến lớn và ko có dấu cách giữa các số. VD:16816252401....
viết chương trình xác định chữ số ở vị trí k(với k>=50000) của dòng chữ tinh ranh
"dòng chữ tinh ranh" dc cấu tạo như sau:1 dòng số là luỹ thừa 4 của các số nguyên tố từ nhỏ đến lớn và ko có dấu cách giữa các số. VD:16816252401....
viết chương trình(pascal) xác định chữ số ở vị trí k(với k>=50000) của dòng chữ tinh ranh
giúp mik với mn ơi ♥
"dòng chữ tinh ranh" dc cấu tạo như sau:1 dòng số là luỹ thừa 4 của các số nguyên tố từ nhỏ đến lớn và ko có dấu cách giữa các số. VD:16816252401....
viết chương trình(pascal) xác định chữ số ở vị trí k(với k>=50000) của dòng chữ tinh ranh
giúp mik với mn ơi ♥
program dongchutinhranh;
uses crt;
var k,i,j,t,m,n:longint;
s:string;
begin
clrscr;
write('k=');readln(k);
i:=1;
while j<k do
begin
i:=i+1;
for t:=1 to trunc(sqrt(i)) do {trunc(i):lay phan nguyen cua i}
if i mod t=0 then m:=t;
if m=1 then
begin
n:=i*i*i*i;
str(n,s);
j:=j+length(s);
end;
end;
j:=length(s)-(j-k);
writeln(S[j]);
readln;
end.
lớp tôi có 1 cậu bạn rất giỏi toán. một hôm, cậu ấy chế tạo ra 1 dòng chữ ko có dấu cách, đặt tên là dòng chữ tinh ranh. dòng chữ đó dc cấu tạo bởi luỹ thừa 4 của các số nguyên tố từ nhỏ đến lớn vd: 16816252401...
hãy viết chương trình(pascal) để xác định chữ số ở vị trí k( k dc nhập từ bàn phím và 1<=k<=50000) trong dòng chữ tinh ranh( yêu cầu nhập vào k là 50000 mà chương trình chạy dc)
mong dc giúp đỡ(đây là môn tin học về pascal,do ko có tin nên chọn tạm là toán)
Nhập vào từ bàn phím số nguyên dương N (1<N 10')
- Dòng 1: Tổng các chữ số của N.
- Dòng 2: Số lượng các số nguyên dương, không phải là số nguyên tố nhỏ hơn N
- Dòng 3: Ghi hai số 7 và K cách nhau 1 dấu cách : I10 cho tổng thu K số nguyên liên tiếp bắt đầu từ Z bằng N, trường hợp tồn tại nhiều giá trị Z, thì hiển thị màn hình kết quả có giá trị Z nhỏ nhất
- Dòng 4: Ghi số X là số lượng các chữ số cần dùng để chỉnh chốt quyển sách có N
Ví dụ :nhập vào 15
in ra d1:6
d2:8
d3:1 5
d4:21
#include <bits/stdc++.h>
using namespace std;
long long n,i,x,t,dem,j;
int main()
{
cin>>n;
x=n;
t=0;
while (n>0)
{
t=t+n%10;
n=n/10;
}
cout<<t;
dem=0;
for (i=2; i<=x; i++)
{
bool kt=true;
for (j=2; j*j<=i; j++)
if (i%j==0) kt=false;
if (kt==true) dem++;
}
cout<<dem;
return 0;
}
Bài 4: Tìm số dư của phép chia cho 9. CHIA9.PAS Cho một số nguyên dương N có M chữ số. Yêu cầu: Tìm số dư của phép chia số N cho 9. Dữ liệu vào: Cho trong file văn bản CHIA9.INP, có cấu trúc như sau: - Dòng 1: Ghi số nguyên dương M là số lượng chữ số của số N (1 ≤ M ≤ 100). - Dòng 2: Ghi M chữ số của số N, các chữ số được ghi liền nhau. Dữ liệu ra: Ghi ra file văn bản CHIA9.OUT, theo cấu trúc như sau: - Dòng 1: Ghi số nguyên dương Q, là số dư tìm được. Ví dụ: CHIA9.INP CHIA9.OUT 5 74283 6
Bài 5: Tìm số sát sau - SOSATSAU.PAS Cho số tự nhiên A có N chữ số. Hãy hoán vị các chữ số trong A để thu được số B thoả mãn đồng thời hai điều kiện sau: - B lớn hơn A. - B nhỏ nhất. Dữ liệu vào: Cho trong file SOSATSAU.INP có cấu trúc như sau: - Dòng 1: Ghi số N là số lượng chữ số của A (0a[i-1]. Do đoạn cuối giảm dần, điều này thực hiện bằng cách tìm từ cuối dãy lên đầu gặp chỉ số k đầu tiên thỏa mãn a[k]>a[i-1] (có thể dùng tìm kiếm nhị phân) - Đảo giá trị a[k] và a[i-1] - Lật ngược thứ tự đoạn cuối giảm dần (từ a[i] đến a[k]) trở thành tăng dần + Nếu không tìm thấy tức là toàn dãy đã sắp xếp giảm dần, đây là hoán vị cuối cùng.
Bài 2. MẬT KHẨU. Cu Tí thường xuyên tham gia thi lập trình trên mạng. Vì đạt được thành tích cao nên Tí được gửi tặng một phần mềm diệt virus. Nhà sản xuất phần mềm cung cấp cho Tí một mã số là một dãy gồm các bộ ba chữ số ngăn cách nhau bởi dấu chấm và có chiều dài không quá 255 (kể cả chữ số và dấu chấm). Để cài đặt được phần mềm, Tí phải nhập vào mật khẩu của phần mềm. Mật khẩu là một số nguyên dương M được tạo ra bằng cách tính tổng giá trị các bộ ba chữ số trong dãy mã số, các bộ ba này được đọc từ phải sang trái. - Yêu cầu: Cho biết mã số của phần mềm, hãy tìm mật khẩu của phần mềm đó. - Dữ liệu vào: Cho từ tệp văn bản có tên BL2.INPgồm một dòng chứa xâu ký tự S (độ dài xâu không quá 255 ký tự) là mã số của phần mềm. - Kết quả: Ghi ra tệp văn bản có tên BL2.OUTgồm một số nguyên là mật khẩu tìm được. MK.INP MK.OUT 123.234 257
Bài 6: Biến đổi số BIENDOI.PAS Cho một số nguyên dương M có K chữ số (0 < M; 1 ≤ K ≤ 200). Người ta thực hiện biến đổi số M bằng cách xóa đi trong M các chữ số 0 và sau đó sắp xếp các chữ số còn lại theo thứ tự không giảm của giá trị từng chữ số. Gọi số nguyên dương N là số thu được sau khi thực hiện biến đổi số M. Yêu cầu: Hãy tìm số nguyên dương N. Dữ liệu vào: Nhập vào từ tệp biendoi.inp số M Dữ liệu ra: Ghi ra tệp biendoi.out số N Ví dụ: M=3880247 N=234788
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2,t3,min,max:integer;
kt:boolean;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
kt:=true;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=false;
break;
end;
writeln('Tong cua day so la: ',t);
if (kt=true) and (t>1) then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
writeln('Cac so o vi tri le cua day so la: ');
t1:=0;
for i:=1 to n do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac so o vi tri le cua day so la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
writeln('Cac so o vi tri chan cua day so la: ');
t2:=0;
for i:=1 to n do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln;
writeln('Tong cac so o vi tri chan cua day so la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if t3=t2 then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('So lon nhat cua day la: ',max);
writeln('So nho nhat cua day la: ',min);
writeln('Tong cua so lon nhat va so nho nhat la: ',max+min);
readln;
end.
uses crt;
var a:array[1..100]of integer;
n,i,t,kt,j,t1,t2,t3,max,min:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cua day so vua nhap la: ',t);
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if (kt=0) and (t>1) then writeln(t,' la so nguyen to');
else writeln(t,' khong la so nguyen to');
t1:=0;
writeln('Cac so o vi tri le cua day la: ');
for i:=1 to n do
if i mod 2=1 then
begin
write(a[i]:4);
t1:=t1+a[i];
end;
writeln;
writeln('Tong cac so o vi tri le la: ',t1);
if trunc(sqrt(t1))=sqrt(t1) then writeln(t1,' la so chinh phuong')
else writeln(t1,' khong la so chinh phuong');
t2:=0;
writeln('Cac so o vi tri chan la: ');
for i:=1 to n do
if i mod 2=0 then
begin
write(a[i]:4);
t2:=t2+a[i];
end;
writeln;
writeln('Tong cac so o vi tri chan la: ',t2);
t3:=0;
for i:=1 to t2 do
if t2 mod i=0 then t3:=t3+i;
if t3=t2 then writeln(t2,' la so hoan hao')
else writeln(t2,' khong la so hoan hao');
max:=a[1];
min:=a[1];
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln('Gia tri lon nhat la: ',max);
writeln('Gia tri nho nhat la: ',min);
writeln('Tong cua hai so lon nhat va nho nhat la: ',max+min);
readln;
end.
v Viết chương trình nhập một xâu nhiều số nguyên từ bàn phím ,các số cách nhau bởi dấu cách . Khi nhập xong đưa ra thông báo:
-số lượng các số đã nhập.
-tính tổng các số lẻ.
-số nhỏ nhất ở vị trí lớn nhất.
-số lớn nhất ở vị trí nhỏ nhất
A=input("Nhập dãy các số cách nhau bởi dấu cách: ")
S=A.split()
k = 0
n=[]
c = len(S)
m1 = min(S)
m2 = max(S)
for x in S:
n.append(float(x))
b=[]
for a in n :
if a % 2 != 0 :
b.append(float(a))
S=0
for i in b:
k=k+i
print("Số lượng các số đã nhập",c)
print("Tổng các số lẻ là", k)
print("Số nhỏ nhất là", m1)
print("Số lớn nhất là ", m2)
A=input("nhập xâu:")
N=A.split()
B=[]
tl= 0
for i in N:
B.append(int(i))
max=B[0]
min=B[0]
print("Có",len(B),"số đã nhập")
for k in range(len(B)):
if k%2 != 0:
tl=tl + k
print("tổng các số lẽ là:",tl)
for e in range(len(B)):
if B[e]>max:
max = B[e]
vtnn = e
if B[e]<=min:
min = B[e]
vtln = e
print("số lớn nhất là:",max,"ở vị trí:",vtnn)
print("số nhỏ nhất là:",min,"ở vị trí:",vtln)
n=0
m=[]
a=0
s=0
S= input (" Nhập dãy các số cách nhau bởi 1 dấu cách :")
A=S.Split ()
b=int(A[0])
If int (A [i])%2==1:
s=s+int(A[i])
If int (A[i])>a:
a=int(A[i])
n=i
If b>=int (A[i]):
b=int(A[i])
m.append(i)
primt (" số lượng các số đã nhập ",len(A))
primt(" tổng các số lẻ là ",s)
primt(" số lớn nhất là :",a"tại vị trí nhỏ nhất ",n+)
primt("số nhỏ nhất là :",b,"tại vị trí nhỏ nhất:"m[lent(n)-1])