Pascal/Turbo Pascal - AYUDA!!! subprograma - verificar si dos números son amigos

   
Vista:

AYUDA!!! subprograma - verificar si dos números son amigos

Publicado por alex (4 intervenciones) el 09/11/2014 19:17:06
Ejercicio 4
Escribe un programa que lea dos números del teclado y verifique si son amigos. Dos
números son amigos si cada uno de ellos es igual a la suma de los divisores del otro, sin
considerar el propio número. Por ejemplo, 220 y 284 son amigos porque:
divisores de 220 (distintos de 220): 1,2,4,5,10,11,20,22,44,55,110, suman 284
divisores de 284 (distintos de 284): 1,2,4,71, 142 suman 220
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

AYUDA!!! subprograma - verificar si dos números son amigos

Publicado por David (144 intervenciones) el 09/11/2014 23:17:00
Te propongo la siguiente solución:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Uses crt;
 
var
    n1,n2,sum1,sum2 :Integer;
 
Function suma(var N : Integer; var S : Integer):integer;
 
var
  I : Integer;
 
begin
  For i:= 2 To N div 2 do
    If (N Mod i) = 0 Then
      S := S + i;
suma:=s;
 
End;
 
 
Begin
  sum1:=1;
  sum2:=1;
  Writeln('Introduzca el primer número: ');
  readln(n1);
  Writeln('Introduzcaa el segundo número: ');
  readln(N2);
  sum1 := suma(n1, sum1);
  sum2 := suma(n2, sum2);
  If ((sum1 = n2) And (sum2 = n1)) Then
    Writeln(N1,' y ',n2,' son números amigos')
  Else
    Writeln(N1,' y ',n2,' NO son números amigos');
  readln;
End.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

AYUDA!!! subprograma - verificar si dos números son amigos

Publicado por alex (4 intervenciones) el 10/11/2014 00:03:29
muchas gracias.
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