CLS
INPUT "vvedite a"; a
INPUT "vvedite n"; n
st=1
FOR i = 1 TO n
st=st*a
NEXT
PRINT a; "^"; n; "="; st
Тестирование выполнено в программе QB64 ( Скачать )
CLS
INPUT "vvedite a"; a
INPUT "vvedite n"; n
st=1
FOR i = 1 TO n
st=st*a
NEXT
PRINT a; "^"; n; "="; st
Тестирование выполнено в программе QB64 ( Скачать )