Кто понимает информатику, решите пожалуйста. Хотя бы в цикле "For"

Question

Кто понимает информатику, решите пожалуйста.
Хотя бы в цикле "For"

---

Answer 1

MS-DOS QBasic
 Версия 1.0

a = 3: p = 1!
FOR x = 1 TO 5
   p = p * a * x ^ 2 / SQR(x + 5)
NEXT x
PRINT p

Тестовое решение:
Y:\qbasic>QBASIC.EXE
 20122.31

Чтобы продолжить, нажмите любую клавишу