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