10 INPUT "Введите число N: ", N 20 c = 1 30 FOR i = 2 TO N STEP 2 40 c = c i 50 NEXT i 60 PRINT "Куб произведения чётных чисел от 1 до "; N; " равен "; cc*c 70 END ⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
В этой программе мы сначала запрашиваем у пользователя число N. Затем мы начинаем цикл, в котором умножаем все чётные числа от 2 до N друг на друга. На выходе мы выводим куб произведения всех чётных чисел от 1 до N.
10 INPUT "Введите число N: ", N
20 c = 1
30 FOR i = 2 TO N STEP 2
40 c = c i
50 NEXT i
60 PRINT "Куб произведения чётных чисел от 1 до "; N; " равен "; cc*c
70 END
⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀⠀
В этой программе мы сначала запрашиваем у пользователя число N. Затем мы начинаем цикл, в котором умножаем все чётные числа от 2 до N друг на друга. На выходе мы выводим куб произведения всех чётных чисел от 1 до N.