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.