CLS
PRINT" Введите 10 чисел "
FOR i=1 TO 10
INPUT A
IF (A*A)<100 THEN PRINT A :PRINT " ": PRINT (A*A)
NEXT I
END
На питоне 3й версии достаточно ввести
print (3 ** 100<span>)
</span>Ответ:
<span>515377520732011331036461129765621272702107522001
Для 2й версии Питона:
</span>print 3 ** <span>100
</span>
1024 - 2^10
64 - 2^6
32 = 2^5
16 = 2^4
2^10*2^6*2^5*2^4=2^25 бит или 2^22 байт или 2^12 Кбайт или 2^2 МБ или 4МБ