Question

Составить программу в паскале!!! Помогите пожалуйста

Answer 1

//Pascal

function fact(x:byte):real; //Факториал
begin
  if x = 0 then fact := 1
  else fact := fact(x-1)*x;
end;

var
  A: array [1..10, 1..10] of real;
  i, j, N: longint;
begin
  write('Введите размер квадратной матрицы: '); readln(N);
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      A[i, j] := fact(i)-fact(j);
      write(A[i, j]:8);
    end;
    writeln;
  end;
end.