10 CLS 15 PRINT "CALCULO DE CONOCEDORES O SEGUIDORES" 20 INPUT "Porcentaje de conocedores o seguidores de A"; A 30 INPUT "Porcentaje de conocedores o seguidores de B"; B 40 INPUT "Poblacion de A"; PA 50 INPUT "Poblacion de B"; PB 51 INPUT "Poblacion conjunta de A B"; PAB 52 PT = PA + PB - PAB 60 FA = A / 100 70 FB = B / 100 71 PSA = FA * PA 72 PSB = FB * PB 73 PSAB2 = FA * FB * PAB 74 PSAB = PSA + PSB - PSAB2 75 FT = PSAB / PT 76 T = FT * 100 89 PRINT 100 PRINT "RESULTADOS" 102 PRINT "PORCENTAJE CON. O SEG. %= "; T 103 PRINT "POBLACION CON. O SEG. A= "; PSA 104 PRINT "POBLACION CON. O SEG. B= "; PSB 110 PRINT "POBLACION CON. O SEG. AB= "; PSAB 115 PRINT "POBLACION TOTAL = "; PT 120 PRINT 140 INPUT "NUEVO CALCULO SI=1"; NC 150 IF NC = 1 THEN 10 155 PRINT 160 END