作业帮 > 综合 > 作业

有关pascal的几道题

来源：学生作业帮 编辑：大师作文网作业帮 分类：综合作业 时间：2024/11/11 07:27:39
有关pascal的几道题
http://10.12.10.10:9015/JudgeOnline/showproblem?problem_id=1225
http://10.12.10.10:9015/JudgeOnline/showproblem?problem_id=1116
http://10.12.10.10:9015/JudgeOnline/showproblem?problem_id=1058
抱歉,发成校内网了
网址是
http://218.5.5.242:9015/JudgeOnline/showproblem?problem_id=1116
http://218.5.5.242:9015/JudgeOnline/showproblem?problem_id=1058
有关pascal的几道题
1、
var
i,sum,n:longint;
begin
readln(n);
sum:=1;
for i:=1 to n do
sum:=sum*i;
writeln(sum);
end.
2、
var
f:array[1..10000] of boolean;
i,n,sum:longint;
begin
readln(n);
fillchar(f,sizeof(f),true);
for i:=2 to trunc(sqrt(n)) do
for j:=2 to n div i do
f[i*j]:=false;
sum:=0;
for i:=1 to n do
if f[i] then inc(sum,f[i]);
writeln(sum);
end.
时间匆忙,没有编译,自己看看吧
有关pascal的几道题 pascal里的有关括号的问题 pascal编程,有关图的遍历 Pascal 也分 Turbo Pascal 和 Free Pascal 的 一道pascal的题目 pascal:明明的随机数 pascal问题（与二维数组有关） 问一下程序,pascal的. 一个pascal语言的问题. pascal中shl的用法 求平均数的pascal程序 pascal 统计数字的实验报告