Pascal/Turbo Pascal - divisores

   
Vista:

divisores

Publicado por daicy (13 intervenciones) el 27/04/2014 15:40:53
hola ramon buen dia.queria preguntarte por un ejercicio de clase, ojala puedas ayudarme
dados dos numeros que se ingresan por teclado a y b, verifi car que la suma de los divisores de cada uno de ellos, SIN CONTARSE ASI MISMO, da como resultado el otro numero"
muchismas gracias
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

divisores

Publicado por ramon (2072 intervenciones) el 28/04/2014 14:21:20
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
{Mira a qui tienes los divisores de los números entrados y su suma solo tienes que comparar si son iguales alguno
 espero sea esto}
 
 program losdivisores;
 uses
    crt;
  var
     divisor : array[1..2,1..200] of integer;
     p, i : integer;
     nume1, nume2 : integer;
     tom1, tom2, suma : integer;
 
   procedure divisores(n1, n2 : integer);
   var
      w : integer;
   begin
      i := 1;
      for w := 1 to n1 - 1 do
      begin
      if frac(n1 / w) = 0 then
      begin
         divisor[1,i] := w;
         i := i + 1;
         if i > 200 then
         i := 200;
      end;
    end;
      tom1 := i - 1;
      i := 1;
      for w := 1 to n2 - 1 do
      begin
      if frac(n2 / w) = 0 then
      begin
         divisor[2,i] := w;
         i := i + 1;
         if i > 200 then
         i := 200;
      end;
    end;
      tom2 := i - 1;
   end;
 
 
 
   begin
       clrscr;
       divisores(36,55);
       suma := 0;
       for p := 1 to tom1 do
       begin
       write('  ',divisor[1,p]);
       suma := suma + divisor[1,p];
       end;
       writeln;
       writeln('  La suma de los divisores es : ',suma);
       suma := 0;
       for p := 1 to tom2 do
       begin
       write('  ',divisor[2,p]);
       suma := suma + divisor[2,p];
       end;
       writeln;
       writeln('  La suma de los divisores es : ',suma);
       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