Блок-схема Програма

0

Начало Public Sub pr2()

1Dim p,x As Single

Ввод x,n Dim i,n As Integer

2 x=Val(InputBox("Введите х"))

р=1 n= Val(InputBox("Введите n"))

3 p=1

i=1,n for i=1 to n

p=p*(x+i)

4 next i

p=p*(x+i) MsgBox "p=" & p

EndSub

5

Вывод р

6 Конец