Đề bài:
Thuật toán:
- (đang cập nhập)
Code:
const fi = '';//MULONE.INP'; fo = '';//MULONE.OUT'; maxn = 10000000; var n,test,t : longint; kq : array[1..maxn] of longint; procedure sol; var i,nho,tong : longint; count : longint; begin tong:=0; nho:=0; count:=0; for i:=1 to n do begin tong:=(i+nho) mod 10; nho:=(i+nho) div 10; inc(count); kq[count]:=tong; end; for i:=n-1 downto 1 do begin tong:=(i+nho) mod 10; nho:=(i+nho) div 10; inc(count); kq[count]:=tong; end; for i:=count downto 1 do write(kq[i]); writeln; end; BEGIN assign(input,fi); reset(input); assign(output,fo); rewrite(output); readln(T); for test:=1 to T do begin readln(N); sol; end; close(input); close(output); END. |
BÌNH LUẬN MỚI