Question

Дано произвольное целое положительное число K (K<=10^9) Найти произведение всех цифр этого числа которые кратны трём

Answer 1

var

s: string;

i,n: integer;

begin

readln(s);

n:=1;

for i:=1 to length(s) do

 if ((s[i]='3') or (s[i]='6') or (s[i]='9')) then

 n:=n*(ord(s[i])-48);

write(n);

end.