Free Pascal编程时有一些题,

这是我写的,希望能帮助你：
第一题：
program lhc13;
var n,i,t:longint;
begin
readln(n);
for i:=1 to n do
if n mod i=0 then inc(t);
if t=2 then writeln('Yes') {看如果这个数的因数只有两个（即1和它本身）那么就是质数,输Yes,否则就是No}
else writeln('No');
end.
第二题：
program lhc13;
var i:longint;
begin
for i:=1 to 200 do
if (i mod 3=0) and (i mod 5=0)
and (i mod 7=0) then writeln(i); ｛貌似符合条件的只有105一个｝；
end.
第三题：
program lhc13;
var a:array[1..100000] of longint;
i,n,s:longint;
begin
readln(n);
for i:=1 to n do
if (n mod i=0) then a[i]:=i; ｛把因子存进数组｝
for i:=1 to n do s:=s+a[i]; ｛相加｝
if (s-n=n) then writeln('Yes') ｛减去本身之后判断｝
else write('No');
end.
全都通过了,很简单易懂的程序哦!
都对,要加分哦~
O(∩_∩)O.