Buenas a todos,

me han robado un Toshiba Satellite L850-138 y al poner la denuncia en comisaría me han dicho que sería de ayuda que les dé el número de serie. El problema es que, evidentemente, no tengo el portátil para mirarlo. Ahora mismo estoy en Alemania, pero en España tengo la caja del portátil con el manual y todo eso, ¿debería estar ahí o sólo aparece en el portátil?

¡Muchas gracias!

Hola, tengo un problemilla haciendo este programa, tengo ya el código y no me da problemas al compilar, pero a la hora de ejecutarlo no hace nada, y no sé dónde puede estar el fallo. Os dejo el enunciado de la práctica para que entendáis qué estoy haciendo y el código, muchas gracias!

_Enunciado:

Dos números a y b se dicen que son amigos si la suma de los divisores de a (salvo él mismo)
coincide con b y viceversa.
El menor par de números amigos es el formado por el 220 y el 284, ya que:
Suma de divisores de 220 (excepto 220): 1+2+4+5+10+11+20+22+44+55+110=284.
Suma de divisores de 284 (excepto 284): 1+2+4+71+142=220.
Otros números amigos son 2620 y 2924, 6232 y 6368, 17296 y 18416, 9363584 y 9437056.
Escribe un programa que tenga como entrada dos números naturales n y m y muestre en
pantalla todas las parejas de números naturales que existan en el intervalo [n, m].

_Código:

   

PROGRAM PRACTICA4
	INTEGER a, b, i, j, n, m, s, t
	PRINT *, 'Introduzca el número n (el menor)'
	READ *, n
	PRINT *, 'Introduzca el número m (el mayor)'
	READ *, m
	DO WHILE (n<m)
		DO i=1, n/2
		a=MOD(n,i)
		IF (a==0) THEN
			s=s+i
		END IF
		END DO
		DO j=1, m/2
		b=MOD(m,j)
		IF (b==0) THEN
			t=t+j
		END IF
		END DO
		IF (s==t) THEN
		PRINT *, n, ' y ', m, ' son amigos'
		END IF
                n=n+1
	END DO
	END

Buenas, estoy empezando a programar Fortran en la facultad y tengo problemas con este programa. El programa es el típico programita chorra para calcular los divisores de un número y decirte cuáles son. El código fuente que he hecho es el siguiente:

PROGRAM PRACTICA3
 OPEN (UNIT=1, FILE='Divisores.txt')
 OPEN (UNIT=2, FILE='Divisores Pares.txt')
 OPEN (UNIT=3, FILE='Divisores Impares.txt')
100 FORMAT (/, I10)
 INTEGER n, i, j, k, d, a, b
 PRINT *, 'Introduzca un número'
 READ *, n
 DO d=1, n/2
 a=MOD(n, d)
 IF (a==0) THEN
 WRITE (1, 100) d
 i=i+1
 END IF
 b=MOD(d,2)
 IF (b==0) THEN
 WRITE (2, 100) d
 j=j+1
 ELSE
 WRITE (3, 100) d
 k=k+1
 END IF
 END DO
 CLOSE (1) 
 CLOSE (2) 
 CLOSE (3) 
 PRINT *, 'Hay ', i, ' divisores ', j, ' pares ', k, ' impares'
 STOP
 END

El error que me sale es el siguiente: error FOR2588: Type declaration statement cannot occur here; me he metido en el Help pero no entiendo exactamente a qué se refiere, sólo que está dentro del DO.

A ver si alguien me puede ayudar, que seguro que luego es una chorrada de fallo. Muchas gracias!

Buenas, yo lo que quería preguntar es cómo puedo hacer para jugar en Windows XP a un juego que es bastante antiguo, del año 95 o así. Ya he probado en la pestaña de compatibilidad del programa, pero el juego va demasiado rápido para poder jugar, así que me gustaría que alguien me dijera como puedo jugarlo correctamente. Gracias y un saludo