INPUT"vvedite a ",a
INPUT"vvedite x ",x
p=1
FOR i=a TO a+n-1
p=p*i
NEXT
PRINT p
Похожие записи/страницы:
- Даны действительное число a, натуральное число n. Вычислить: P=a(a+1)*...*(a+n-1) - QBasic(Бейсик)
- Дано натуральное число n, действительное число x. Вычислить: S=sinx+sinsinx+...+sinsin...sin(повторяется n раз)…
- Дано натуральное число n, действительное число x. Вычислить: S=sinx+sinsinx+...+sinsin...sin(повторяется n раз)x…
- Дано натуральное число n и действительное х. Вычислить sinx+sin^2(x)+...sin^n(x)- Basic(Бейсик)
- Дано действительное число Х. Вычислить х-(x^3)/3!+(x^5)/5!-(x^7)/7!+(x^9)/9!-(x^11)/11!+(x^13)/13! - Basic(Бейсик)
- Дано натуральное n и действительное x. Вычислить: ((1/2) - cos(x))*((2/3) - cos^2(x))*...*((n/n+1) - cos^n(x)) -…