编写pascal语言程序~~会的帮忙！

来源：百度知道 编辑：UC知道 时间：2024/05/21 14:59:30
1.用for循环打印下列图案：
*
***
*****
***
*
求详细程序即解题思路！

2.用for循环编写程序输出100以内素数。

各位帮帮忙啊~~~小的是新手！还望大家能多多指教，要是有对的帮助大的，我baidu上仅有的25分也给你了啊~~~
谢谢啊！
第一题的图是个菱形……

第二个问题的答案
var n,i,j;longint;
b:boolean;
begin
readln(n); {读入需要的输出的1~n间的素数}
for i:=1 to n do
begin
b;=true; {假设它是素数}
for j;=2 to trunc(sqrt(i)) do {一个数的约数只在2~他的根号间}
if i mod j=0 then b:=false {如果i mod j=0,那么i就有约数j,不是素数}
if b=false then writeln(i:10);
end;
end.