"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.