S = 1
INPUT "vvedite n="; n
INPUT "vvedite m="; m
FOR I = 0 TO n
S = S * (m + I)
NEXT I
PRINT "S="; S
Тестирование выполнено в программе QB64 ( Скачать )
S = 1
INPUT "vvedite n="; n
INPUT "vvedite m="; m
FOR I = 0 TO n
S = S * (m + I)
NEXT I
PRINT "S="; S
Тестирование выполнено в программе QB64 ( Скачать )