zadach375.BAS

{* Задача375 *}

REM basic

' Дано действительное число a, натуральное число n>1 Найти S a(a+1)(a+2)...(a+n-1)


INPUT "vvedite a"; a
INPUT "vvedite n"; n
s = a
For i = 1 To n - 1
    s = s * (a + i)
Next
PRINT s
End