Preguntas de programación QBASIC (preguntas simples)

El último se puede omitir por completo si I>paragraph=1000, porque la pregunta requiere dentro de 100.

Tu b es inútil.

Déjame probar

cls

I=1

Para I=1 a 100

a = len(str$(I))-1

b=I^2

c=10^a

Si b mod c = I, entonces d =d+1

Luego

imprime "***allí"; d; "número isomorfo"

Fin