Khi làm toán, Tèo nhận thấy 11^2= 121, 111^2=12321, 1111^3=1234321... Nhưng khi có nhiều hơn 9 chữ số 1 thì quy luật sẽ thay đổi. Cho số S= 111...11. (gồm n chữ số 1, trong hệ thập phân). Bạn hãy viết chương trình giúp tèo tính S^2 nhé.
DỮ liệu vào:
Vào từ file văn bản BL2.INP
1 dòng ghi số n là số lượng chữ số 1 của S (1<=n<=1000000)
Kết quả ghi vào file BL2.OUT
ghi kết quả của S^2
Pascal nha mn
var f,g:text;s,s1:string;n,i:1..9; Begin assign(f,'BL2.inp');reset(f); assign(g,'BL2.out');rewrite(g); readln(f,n); for i:=1 to n do begin str(i,s1); s:=s+s1; end; for i:=n-1 downto 1 do begin str(i,s1); s:=s+s1; end; writeln(g,s); close(g); End.
var f,g:text;s,s1:string;n,i:1..9; Begin assign(f,'BL2.inp');reset(f); assign(g,'BL2.out');rewrite(g); readln(f,n); for i:=1 to n do begin str(i,s1); s:=s+s1; end; for i:=n-1 downto 1 do begin str(i,s1); s:=s+s1; end; writeln(g,s); close(g); End.