⇢ 
Александр
Дано натуральное число N . Получить первые N строк треугольника Паскаля 1 1 1 1 1 2 1 1 3 3 1 1 4 6 4
Получить первые N строк треугольника Паскаля
1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
С++
V@
Vassilissa @
код на vba
Sub pasc()
Cells.ClearContents
Cells(1, 1) = 1
For ii = 2 To 7
For jj = 1 To ii
If jj > 1 Then
Cells(ii, jj) = Cells(ii - 1, jj - 1) + Cells(ii - 1, jj)
Else
Cells(ii, jj) = Cells(ii - 1, jj)
End If
Next jj
Next ii
End Sub
вот результат работы:
1
11
121
1331
14641
15101051
1615201561
Похожие вопросы