13 lines
214 B
Turing
13 lines
214 B
Turing
|
proc pascal (n : int)
|
||
|
|
for i : 0 .. n
|
||
|
|
var c := 1
|
||
|
|
for k : 0 .. i
|
||
|
|
put c : 4 ..
|
||
|
|
c := c * (i - k) div (k + 1)
|
||
|
|
end for
|
||
|
|
put ""
|
||
|
|
end for
|
||
|
|
end pascal
|
||
|
|
|
||
|
|
pascal(5)
|