编程求5！+7！+9！+11！的值。

function jiecheng(i:integer):int64;
var
a:int64;
x:integer;
begin
    a:=1;
    for x:=1 to i do a:=a*x;
    jiecheng:=a;
end;

begin
    writeln(jiecheng(5)+jiecheng(7)+jiecheng(9)+jiecheng(11));
    readln;
end.

编程求C RK = K！/（R！（K-R）！）（K > R > 0）

var
k,r:integer;
C:real;


function jiecheng(i:integer):int64;
var
a:int64;
x:integer;
begin
    a:=1;
    for x:=1 to i do a:=a*x;
    jiecheng:=a;
end;

begin
write('Input K&R');
readln(k,r);
C:=jiecheng(k)/(jiecheng(r)*(jiecheng(k)-jiecheng(r)));
writeln('C RK:',c);
readln;
end.

求正整数2和100之间的完全数。

完全数：因子之和等于它本身的自然数，如6=1+2+3 ；

var
x:integer;

function JC(jcs:integer):boolean;
    var
    ys:integer;
    ysh:longint;
        
begin
    jc:=false;
    ysh:=1;
    for ys:=2 to jcs div 2 do
        begin
            if (jcs mod ys) = 0 then  ysh:=ysh+ys;
        end;
    if ysh=jcs then jc:=true; 
end;

begin
    for x:=2 to 100 do
        begin
            if JC(x) then write(x,', ');	
        end;
    readln;
end.

如果一个自然数是素数,且它的数字位置经过对换后仍为素数,则称为绝对素数,例如13。试求出所有二位绝对素数

Var
JCS:integer;


    function SSJC(n:integer):boolean;
        var
        x:integer;
        begin
            SSJC:=true;
            for x:=2 to n-1 do
                begin
                    if n mod x = 0 then SSJC:=false;
                end;
        end;


    function JDJC(n:integer):boolean;
    var
    a,b,sum:integer;
    begin
    sum:=0;
    JDJC:=false;
    a:= n div 10;
    b:= n mod 10;
    sum:=b*10+a;
    if SSJC(sum) then JDJC:=true;
    end;
    
Begin
    for JCS:=10 to 99 do
        begin
            if SSJC(JCS) then
                begin 
                    if JDJC(JCS) then write (JCS,', ');
            end;
        end;
    readln;
End.

编写程序计算表达式：Y = x2 + SH(x)，SH(x)是双曲正弦函数

在Fp中没有SH()函数，需要由用户自已定义，由数学知识知：SH(x)=( e x – e –x)/2。

var
x:real;

function SH(x:real):real;
    const
    e=2.718281828459;
    begin
    SH:=x*e-e-x;
    end;
function Y(x:real):real;
    begin
    Y:=x*x+SH(x);
    end;
begin
write('Y=x^2+SH(x)');
write('Input x:');readln(x);
writeln(y(x));
readln;
end.