C11SUM – spoj

Đề bài:

• http://vn.spoj.com/problems/C11SUM/

Thuật toán:

• Các bạn đọc code xem thuật toán dễ thế nào nhé 🙂

Code:

• xem code trên ideone

{$H+}
Uses math;
Const
	inp = '';
	out = '';
	maxn = 1000001;
	oo = 1000000007;

Var
	a,b : array [0..maxn] of int64;
	s : string;
	n,i,x : longint;
	res,hold : int64;

begin
	assign(input,inp); reset(input);
	assign(output,out); rewrite(output);
	readln(s);
	n := length(s);
	hold := 0;
	for i := 1 to n do
	  begin
	  	x := ord(s[i])-ord('0');
	  	hold := (hold*10+i*x) mod oo;
	  	res := (res +hold) mod oo;
	  end;
	writeln(res);
end.