Question

написать программу на ПАСКАЛЕ: Дана матрица А, имеющая N строк и N столбцов. Сформируйте два одномерных массива. В один перешлите четные, а в другой -нечетные элементы матрицы. Выведите на экран все массивы.
ИЛИ 
написать программу на ПАСКАЛЕ: Вычислить произведение n! до значения 1255534676756. Пожалуйста решите какую сможете.

Answer 1

var
  i,f:int64;
begin
  f:=1;
  i:=1;
  while f<1255534676756 do
    begin
    f:=f*i;
    writeln(i:2,' ',f);
    i:=i+1
    end
end.

Результат работы программы:

 1 1
 2 2
 3 6
 4 24
 5 120
 6 720
 7 5040
 8 40320
 9 362880
10 3628800
11 39916800
12 479001600
13 6227020800
14 87178291200
15 1307674368000