Hola necesito acerca de números
Hola me llamo Ricardo y necesito que me ayudes en un programo en pascal dice más o menos así:
Ingresar un numero cualesquiera y decir si es
multiplo de 1,2,3,4,5,6,7,8,9,10.
De ante mano muchas gracias ojala me respondas
te pasaste gracias.-
Ingresar un numero cualesquiera y decir si es
multiplo de 1,2,3,4,5,6,7,8,9,10.
De ante mano muchas gracias ojala me respondas
te pasaste gracias.-
Respuesta de natan
1
Copia el siguiente texto a un programa de pascal y listo:
PROGRAM DIVISIBLE;
USES CRT;
VAR X,N,D:INTEGER;
BEGIN
CLRSCR;
WRITELN('INGRESE EL NUMERO: JESUS NATAN ALVAREZ [email protected]');readln(n);
WRITELN('EL NUMERO ES DIVISIBLE POR:');
FOR X:=1 TO N DO IF (N MOD X)=0 THEN WRITE(' ',X);
END.
PROGRAM DIVISIBLE;
USES CRT;
VAR X,N,D:INTEGER;
BEGIN
CLRSCR;
WRITELN('INGRESE EL NUMERO: JESUS NATAN ALVAREZ [email protected]');readln(n);
WRITELN('EL NUMERO ES DIVISIBLE POR:');
FOR X:=1 TO N DO IF (N MOD X)=0 THEN WRITE(' ',X);
END.
