function cnatural.cant_dig_primos2(n: integer): integer;
var
c,dig:integer;
begin
c:=0;
while n>0 do
begin
dig:= n mod 10;
if (primo(dig)=true) then
c:=c+1;
n:=n div 10;
end;
Result:=c;
end;
Llamar :
begin
edit3.Text:=inttostr(clase.cant_dig_primos2(strtoint(edit2.Text)));
end;
No hay comentarios:
Publicar un comentario