По заданному целому неотрицательному значению n вычислить n! =1*2*3* n. учтите, что по определению 0! =1.

uses crt;

var

        int n,fact,i;

begin

clrscr;

writeln("enter size array: ");

read(n);

if (n> 1)

for i: = 1 to n do

fact: =fact*i;

else

fact: =1;

writeln;

write("fact=",fact);

readkey;

end.

// pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! begin   var a: =arrrandom(readinteger('n=',50); a.println;   var t: =a.partition((x,i)-> i.iseven);   var s: =t[0].interleave(t[1].orderbydescending(x-> x));   if a.length.isodd then a: =s.toarray+arr(a.last)   else a: =s.toarray;   a.println end. примеры n= 14 42 -8 41 -26 -28 -44 -27 -24 13 -20 16 19 37 -26 42 19 41 -8 -28 -20 -27 -24 13 -26 16 -26 37 -44 n= 15 -21 41 32 8 -23 23 23 9 35 45 -42 37 -11 -8 22 -21 45 32 41 -23 37 23 23 35 9 -42 8 -11 -8 22

1. модуль garnaga.pas // pascalabc.net 3.2, сборка 1437 от 03.05.2017 // внимание! если программа не работает, обновите версию! unit garnaga; interface function lc(r: real): real; function sc(r: real): real; function rc(x,y: real): real; implementation function lc(r: real): =2*pi*r; function sc(r: real): =pi*r*r; function rc(x,y: real): =sqrt(x*x+y*y); end. 2. основная программа uses garnaga; begin   var x,y,r: real;   writeln('введите x, t, r: '); read(x,y,r);   writeln('длина окружности ',lc(r): 0: 5);   writeln('площадь круга ',sc(r): 0: 5);   writeln('расстояние от центра до начала координат ',rc(x,y): 0: 5); end. 3. пример работы введите x, t, r: 3.5 -6.7 20 длина окружности 125.66371 площадь круга 1256.63706 расстояние от центра до начала координат 7.55910