搜狗做题网关于Pascal语言的编程问题 要求完整的
来源：学生作业帮 编辑：搜狗做题网作业帮 分类：综合作业 时间：2024/08/07 07:12:09
关于Pascal语言的编程问题 要求完整的
1求：N!= 1*2*3*…*n 的值(n
1求：N!= 1*2*3*…*n 的值(n
1.
program xx;
var
n:integer;
function jc(i:integer):integer;
begin
jc:=1;
for i:=2 to n do
jc:=jc*i;
end;
begin
read(n);
writeln(jc(n));
end.
2.
program xx2;
var
i:integer;
begin
for i:=101 to 199 do
if (i mod 3=2) and (i mod 5=3) and (i mod 7=5) then begin
writeln(i);
break;
end;
end.
program xx;
var
n:integer;
function jc(i:integer):integer;
begin
jc:=1;
for i:=2 to n do
jc:=jc*i;
end;
begin
read(n);
writeln(jc(n));
end.
2.
program xx2;
var
i:integer;
begin
for i:=101 to 199 do
if (i mod 3=2) and (i mod 5=3) and (i mod 7=5) then begin
writeln(i);
break;
end;
end.