Increasing Split by uru

var m,n,s:word;c:char;begin
repeat
repeat
repeat
read(c);n:=10*n+ord(c)-48until n>=m;m:=n;s:=s+m;n:=0;write(m,^`)until
eoln;readln;writeln('=',s);m:=0;s:=0until 1=0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page