Дано n-действительное число. Построить и вывести на экран числовой треугольник Паскаля, в котором n-максимальное число в наборе чисел.
Дано n-действительное число. Построить и вывести на экран числовой треугольник Паскаля, в котором n-максимальное число в наборе чисел.
program PascalGuru; uses crt; var n,i,j:integer; {--------------------------------------------} function F(n,r:integer):integer; {функция вычисления значения - по координате треугольника} begin if (n=1)or(r=1)then F:=1 else F:=F(n-1,r)+F(n,r-1); end; {--------------------------------------------} begin clrscr; repeat write('Vvedite n:'); readln(n); {ввод значения n} until n>0; for i:=1 to n do {цикл для первой координаты} begin for j:=1 to i do {цикл для второй координаты} write(F(j,i-j+1):8); {вывод текущей координаты на экран} writeln; end; readln end.