Дано натуральное число. Найти:

а) var d, n, p: int64;begin write('n: '); readln(n); p := 1; while n>0 do begin d := n mod 10; if (d mod 2 = 0) or (d mod 3 = 0) then p := p * d; n := n div 10 end; if p=1 then writeln('В числе нет цифр, кратных двум или трём') else writeln(p)end. б) var d, n, s: int64; begin write('n: '); readln(n); s := 0; while n>0 do begin d := n mod 10; if (d>2) or (d0 do begin d := n mod 10; if odd(d) then k := k + 1; n := n div 10 end; writeln(k) end.