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

0 bình luận về “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. 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.

   Bình luận