Question

Turbo Pascal题目~~

要用while,我是初级兴趣班的菜鸟同学，嘎嘎.....反正闲着也是闲着。
拜托高手们啦、、、
1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)

2.任意输入一个正整数，将其倒序输出。如:输入3946,输出6493
free pascal和turbo pascal都差不多。。。所以打出方法就好了，我是初学的，当然会用turbo啦

Answer 1

program xx1;
var
i,j:integer;
a:boolean;
begin
a:=true;
read(j);
while (a<>false)or(i<>j) do
begin
i:=i+1;
if j mod i=0 then a:=false;
end;
if a then writeln('yes')
else writeln('no');
end.

program xx2;
var
a:string;
i:integer;
begin
read(a);
i:=length(a);
while i<>0 do
begin
write(a[i]);
i:=i-1;
end;
end.

Answer 2

我劝你换Free Pascal

NO.1
var i,n,s,t,m,j,k,l:longint;
begin
readln(n);
i:=0;
while i<=trunc(sqrt(n)) do
begin
if n mod i=0 then
begin
writeln('NOT A PRIME');
halt;
end;
i:=i+1;
end;
writeln('PRIME');
end.
NO.2
var i,n,s,t:longint;
a:array[1..10000]of char;
begin
while not(eoln) do
begin
i:=i+1;
read(a[i]);
end;
for t:=i downto 1 do
write(a[t]);
writeln;
end.