02/10/2018, 14:52
BCMULONE spoj PTIT -Nhân 1
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCMULONE/ 1. Đề bài BCMULONE spoj Cho số S = 111…11 (n chữ số 1, hệ thập phân), tính S 2 . Input – Dòng đầu tiên: số lượng test k (k<=40). – k dòng tiếp, mỗi dòng ghi số n – số lượng chữ số 1 của S. (1 <= n <= ...
Nguồn đề bài: http://www.spoj.com/PTIT/problems/BCMULONE/
1. Đề bài BCMULONE spoj
Cho số S = 111…11 (n chữ số 1, hệ thập phân), tính S2.
Input
– Dòng đầu tiên: số lượng test k (k<=40).
– k dòng tiếp, mỗi dòng ghi số n – số lượng chữ số 1 của S. (1 <= n <= 1000000)
Output
– Với mỗi test ghi kết quả trên 1 dòng.
Example
Input:
2
1
2
Output:
1
121
2. Code tham khảo BCMULONE SPOJ PTIT
{$H+}
var k,n,i,j,t:longint;
begin
readln(k);
for j:=1 to k do
begin
readln(n);
for i:=1 to (n-1) div 9 do write('123456790');
t:=(n-1) mod 9;
for i:=1 to t do write(chr(48+i));
for i:=t+1 downto 2 do write(chr(48+i));
for i:=1 to (n-1) div 9 do write('098765432');
writeln(1);
end;
end.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | {$H+} var k,n,i,j,t:longint; begin readln(k); for j:=1 to k do begin readln(n); for i:=1 to (n-1) div 9 do write('123456790'); t:=(n-1) mod 9; for i:=1 to t do write(chr(48+i)); for i:=t+1 downto 2 do write(chr(48+i)); for i:=1 to (n-1) div 9 do write('098765432'); writeln(1); end; end. |
