1.编程求某年第N天的日期?2.编程把一个整数分解成质因数的连乘积,并打印其连乘式.

第二题我会用FREE PASCAL做(是分解2～100的整数，你借鉴一下）
var
i,j,a,b:integer;
begin
for i:=2 to 100 do
begin
write(i,'=');
b:=i;
j:=2;
a:=0;
repeat
if(b)mod(j)=0
then begin
a:=(b)div(j)
if a=1 then write(j)
else write(j,'*');
else j:=j+1
b:=a;
end
until a=1;
writeln
end
end.

大概的思路就是这样