Pascal/Turbo Pascal - quien puede ayudarme

   
Vista:

quien puede ayudarme

Publicado por Bea (1 intervención) el 24/06/2009 19:39:32
Necesito ayuda para desarrollar una programa que clasifique números ingresados por teclado, en primos y compuestos. Utilizando estructuras de repetición. Gracias. Espero respuesta
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:quien puede ayudarme

Publicado por juan (44 intervenciones) el 27/06/2009 14:08:05
sino me equivoco el concepto de numeros primos y compuestos , los primos creo q eran los q se dividian por si mismo solamente :P y los compuestos se puede mas de 2 veces, aca te escribi el .pas, saludos y cualquier cosa me avisas o si tienen mas problemas manden mail a ver si lo podemos solucionar ,saludos

Program pruebas;
uses crt;
{ Procedimiento }
procedure num_primo(num:integer);
var
cant_div,i:integer;
aux:integer;
begin
cant_div:=0;
for i:=2 to 9 do begin
aux:=num mod i;
IF( aux = 0 )then
cant_div:=cant_div+1;
end;
If(cant_div=1)then
writeln('el numero ',num,' es primo')
else
writeln('el numero ',num,' es compuesto');
end;

{Programa Principal}
var
num:integer;
begin
writeln('ingrese el numero: ');
readln(num);
while(num<>0)do begin
num_primo(num);
writeln;
writeln('ingrese otro numero distinto a 0: ');
readln(num);
end;
readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar