Submission #10204311

---

Source Code Expand

var
	S:String;
	ans,T,pr:Array[0..10]of Longint;
	i,j,tmp:Longint;
begin
	readln(S);
	T[0]:=1;
	pr[0]:=1;
	for i:=1 to 10 do pr[i]:=pr[i-1]*10;
	for i:=1 to length(S) do begin
		tmp:=ord(S[i])-48;
		for j:=i-1 downto 0 do begin
			inc(ans[i],T[j]*tmp+ans[j]);
			inc(tmp,(ord(S[j])-48)*pr[i-j]);
			inc(T[i],T[j]);
		end;
	end;
	writeln(ans[length(S)]);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result