Pascal【入门】判断素数

最新推荐文章于 2024-12-23 13:02:00 发布

Separate漫天星

最新推荐文章于 2024-12-23 13:02:00 发布

阅读量1.7k

点赞数

文章标签：信息学奥林匹克竞赛pascal语言入门

本文链接：https://blog.youkuaiyun.com/qq_42755236/article/details/81165099

版权

题目描述：

任意输入一个整数，判断它是否为素数。是的话输出"T",不是的话输出"F"。

输入：

输入只有一行，包括1个整数(在longint范围内）。

输出：

输出只有一行。

样例输入：

样例输出：

提示：

若从2到A的平方根的范围内，没有一个数能整除A，则A是质数。

代码实现：

var    x,i:longint; f:boolean;
begin
        readln(x);   f:=true;
        if x<2 then 
        begin 
            write('F'); 
            exit; 
        end;
        for i:=2 to trunc(sqrt(x)) do
            if x mod i=0 then f:=false;
        if f then write('T') else write('F');
 
end.