Это если не ошибаюсь 1*2*3*4*5*6*7*8*9*10*11*12*13*14*15*16*17*18*19*20*21=51090942171709440000
П1 <-> П0 5 , 2 3 ИП0 x^2 * 4 , 3 6 ИП0 * + 1 , 2 ИП1 3 <-> x^y * + 0 , 8 9 ИП1 * ИП0 ИП1 + sin 2 * ИП0 ИП1 * e^x * / + С/П
1 слово череп
2 юла
вот так !!!!!!!!!!!!!!
var a,s:integer;
begin
readln(a);
while a>0 do
begin
if a mod 10 mod 3 = 0 then s:=s+a mod 10;
a:=a div 10
end;
if s=0 then writeln('NO')
else writeln(s);
end.