Найдите произведение и количество цифр не кратных 5 в записи числа

Question

Найдите произведение и количество цифр не кратных 5 в записи числа

Answer 1

Var n,p,k:integer;
begin
write('n = '); readln(n);
p:=1; k:=0;
while n>0 do
 begin
 if n mod 5 <> 0 then begin p:=p*(n mod 10); k:=k+1; end;
 n:=n div 10;
 end;
writeln('p = ',p,'  k = ',k);
end.

Пример:
n = 3251046
p = 144  k = 5

Comments

спасибо

---

а как вот этот решить? Нужно написать программу. Найдите сумму и произведение цифр не кратных 3.