Turbo Pascal题目~要用while,我是初级兴趣班的菜鸟同学,嘎嘎.反正闲着也是闲着.1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)2.任意输入一个正
Turbo Pascal题目~要用while,我是初级兴趣班的菜鸟同学,嘎嘎.反正闲着也是闲着.1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)2.任意输入一个正
Turbo Pascal题目~
要用while,我是初级兴趣班的菜鸟同学,嘎嘎.反正闲着也是闲着.
1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)
2.任意输入一个正整数,将其倒序输出.如:输入3946,输出6493
free pascal和turbo pascal都差不多.所以打出方法就好了,我是初学的,当然会用turbo啦
Turbo Pascal题目~要用while,我是初级兴趣班的菜鸟同学,嘎嘎.反正闲着也是闲着.1.输入一整数A,判断它是否质数.(提示:若从2到A的平方根的范围内,没有一个数能整除A,则A是质数.)2.任意输入一个正
program xx1;
var
i,j:integer;
a:boolean;
begin
a:=true;
read(j);
while (afalse)or(ij) 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 i0 do
begin
write(a[i]);
i:=i-1;
end;
end.