function suma_dig_primos(numero: integer): integer;
var
suma,r:integer;
begin
suma:=0;
while ( numero > 0 ) do
begin
r:= numero mod 10;
if ( r in [ 2,3,5,7 ] ) then
begin
suma:= suma + r ;
end else begin
end;
numero:=numero div 10;
end;
Result:=suma;
end;
Forma de llamar :
begin
edit3.Text:=inttostr(form1.suma_dig_primos(strtoint(edit2.Text)));
end;
No hay comentarios:
Publicar un comentario