INPUT a
INPUT b
p=1
FOR i=a TO b
p=p*i
NEXT
PRINT p
Похожие записи/страницы:
- Найти произведение на промежутке от А до В - QBasic(Бейсик)
- Найти сумму четных чисел на промежутке от А до В - Basic(Бейсик)
- Найти сумму четных чисел на промежутке от А до В - QBasic(Бейсик)
- Найти произведение элементов главной диагонали и найти разность максимальных элементов 1 и 3 строк - Basic(Бейсик)
- Даны два однотипных вектора размерности N. Получить их скалярное произведение- Basic(Бейсик)
- Найти произведение и количество элементов удовлетворяющих условию a