Найти произведение квадратов целых чисел от 5 до 27. составить программу ** языку бейсик...

Question

Найти произведение квадратов целых чисел от 5 до 27.
составить программу на языку бейсик
СРОЧНО

Answer 1

Microsoft QBasic 1.0

DIM p AS DOUBLE
p = 1
FOR i = 5 TO 27
   p = p * i ^ 2
NEXT i
PRINT p

Результат
2.05846315812941D+53
Точное значение (для контроля) вычисленное в программе компьютерной математики: 205846315812941087891721086815311205761024000000000000