PRINT "SADEYA/INFORTECNICA"

10 PRINT "CALCULO DE ACCESOS A UNA WEB"
PRINT
INPUT "RANKING UNIVERSAL ALEXA/AMAZON"; RAN
INPUT "TERMINO BASE, ESTANDAR 9.3"; TER
LVU = TER - LOG(RAN) / LOG(10)
VUD = 10 ^ (LVU)
PRINT "VISITAS UNICAS DIA="; VUD
MES = 30 - (LVU * 3)
VUM = VUD * MES
PRINT "VISITAS UNICAS MES="; VUM
COE = LVU - 2
IF COE < 1 THEN COE = 1
VEM = VUM * COE
PRINT "VISITAS MES= "; VEM
COE2 = LVU / 2
PEM = VEM * COE2

PRINT "PAGINAS MES="; PEM
PRINT "TIEMPO MEDIO MIN/DIA="; LVU
PRINT
PRINT "DATOS COMPLEMENTARIOS"
PRINT
PRINT "PAGINAS/VISITA="; COE2
PRINT "TIEMPO MEDIO MIN/PAG="; LVU / COE2
RANE = INT(RAN / 25.7777)
PRINT "RANQUING PAIS="; RANE
PRINT
GOTO 10