Дано натуральное число. Вычислить количество цифр, являющихся степенями 3

1

Ответы и объяснения

2014-03-29T21:19:47+04:00
Var a,k:integer;
begin
readln(a);
k:=0;while (a<>0) do begin
  if a mod 10 in [1,3,9] then k+=1;  //3^0=1, 3^1=3, 3^2=9
  a:=a div 10;
end;
writeln(k);
end.