INPUT "vvedite kolichestvo elementov ", n
y = 1
FOR i = 1 TO n
t = (6 + i + 3 ^ (6 - i) / i)
IF i < 5 THEN PRINT t
y = y * t
NEXT
PRINT "y="; y
Тестирование выполнено в программе QB64 ( Скачать )
INPUT "vvedite kolichestvo elementov ", n
y = 1
FOR i = 1 TO n
t = (6 + i + 3 ^ (6 - i) / i)
IF i < 5 THEN PRINT t
y = y * t
NEXT
PRINT "y="; y
Тестирование выполнено в программе QB64 ( Скачать )