T1
读入正整数n。求2到n之间所有的素数。
然后我的编程是这样的：
结果素数基本上能够输出，但是还存在一些非素数在里面
不知道哪位大神能告诉我这里面哪里出错了
谢谢

就没人回我
哼

不明你程序意思

要不弄个布尔变量，if k mod I =0为假 如果k的一次循环后这个变量为真那么输出k

表示没看过这样的程序。
我的程序：
var
n,i:longint;
function check(x:longint):boolean;
var i:longint;
begin
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then exit(false);
exit(true);
end;
begin
readln(n);
write(2);
for i:=3 to n do
if check(i) then write(' ',i);
writeln;
end.

可以用布尔型做，你这个方法我不会

辗转相除？玩脱了吧

T2
关于指针变量：
如果指针变量p：=2
那这个意思是不是p指向的地址就是2?

begin
writeln("2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97");
end.

n不大的话可以用筛法来做。
const
MAXLEN=1048576;
var
PrimeTable:array [0..MAXLEN] of Boolean;
procedure BuildPrimeTable(m:LongWord);
var
i, j:LongWord;
begin
PrimeTable[0]:=false;
PrimeTable[1]:=false;
FillChar(PrimeTable[2], n-1, 1);
for i:=2 to m do
if PrimeTable[i] do
begin
write(i, ' ');
j:=i;
while i*j<=m do
begin
PrimeTable[i*j]:=false;
inc(j);
end;
end;
end;