var i,j,n:word;begin repeat inc(i);n:=0;for j:=0to 2do n:=n+ord(i div(10pow j)mod 10in[3,6,9]);if n=0then write(i);writeln("ClapClapClap":4*n)until i>999end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page