Có 1 dãy gồm số chính phương viết liên tiếp dài vô tận (149162536.....) . Em hãy viết chương trình tìm ra số thứ n của dãy vd: n=8 thì in ra 3
1 câu trả lời
Program BTT;
Uses crt;
Var St,S: String;
n,i,j,vt: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
St:='';
i:=1;
While length(St)<n do
Begin
j:=sqr(i);
Str(j,S);
St:=St+S;
inc(i);
End;
Write(St[n]);
Readln
End.
Câu hỏi trong lớp
Xem thêm