Developing.ru

Код: Выделить всё

var

f1, f2 : Extended;
n,x    : Integer;

begin
readln(n);
f1 := 1;
f2 := 1;
for x := 1 to n div 2 do
    begin
    f1 := f1*(2*x-1);
    f2 := f2*2*x;
    end;
if n mod 2 = 0 then f2:=f2*n else f1:=f1*n;
Writeln('F1 : ', f1:10:0);
Writeln('F2 : ', f2:10:0);
end.

Код: Выделить всё

var i,j:integer;
k:extended;
begin
readln(i);
k:=1;
for j:=1 to i do
k:=k*j;
writeln(k);
end.

Код: Выделить всё

var i,j:integer;
k:extended;
begin
writeln('введите число');
readln(i);
k:=1;
if i mod 2 = 0 then for j:=1 to (i div 2) do k:=k*2*j {2, 4, 6, etc}
else for j:=0 to (i div 2) do k:=k*(2*j+1); {1, 3, 5, etc}
writeln(k);
readln;
end;