谁能帮我把这段C语言翻译成Pascal语言谢谢了

program ctopas;

var

m,n,x,i,k,prim:integer;

len,max:integer;

begin

len:=0;

max:=0;

writeln('please input 2 number');

readln(m,n);

for x:=m to n do

begin

prim:=1;

k:=round(sqrt(k));

for i:=2 to k do

begin

if x/i=0 then begin prim:=0;

break;

end;

if prim<>0 then begin

if len>max then max:=len;

len:=0;

writeln;

writeln;

end

else begin

inc(len);

if len/10=0 then writeln;

write(x);

end;

end;

writeln('The max length of no-prim numbers between',m,n,'is',max);

readln;

end;

end

大概是这样了

其实就是穷举。

a表示1分的数量，b表示2分的数量，c表示5分的数量。

因为1分的数量不能超过93，2分不能超过47，5分不能超过20，于是这样循环，然后算出总金额，看是不是等于100，是的话就把方案数+1。

var

a,b,c,t,ans:longint;

begin

ans:=0;

for a:=1 to 93 do

for b:=1 to 47 do

if a+b2<100 then

for c:=1 to 19 do

if a+b2+c5<=100 then begin

t:=a+b2+c5;

if t=100 then begin

writeln(a,' ',b,' 'c);

inc(ans);

end;

end else break else break;

writeln(ans);

end

double ZfromP(double P)

/ inverse of cumulative normal, returns -999 for P<10e-12, 999 for P>1 - 10e-12, 3

decimal place accuracy otherwise /

{

double T1,T2,Z;

int Zsign;

if P > 05

{

P =1 - P; Zsign =1;

}

else

{Zsign =-1;}

if P < 10e-12

{Z=999;}

else

{

T1 = -2ln(P); T2 = sqrt(T1);

Z = T2 - (2515517 + 0802853T2 + 10328e-2T1)/

(10 + 1432788T2 + 1308e-3T1T2);

}/ else /

ZfromP = ZsignZ;

} // Zfrom P

以上就是关于谁能帮我把这段C语言翻译成Pascal语言谢谢了全部的内容，包括:谁能帮我把这段C语言翻译成Pascal语言谢谢了、下面的C语言语句,转成pascal语句应该是什么样的、将Pascal程序转为C程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！