使用自由帕斯卡输入一个数字来判断它是否为平方数

begin

readln(a,b);

if a>b then writeln(sqr(a))else writeln(sqr(b));

end.如果楼上的两个数字是负数，它们可能不正确。

* 输入一个正整数来判断数字是否平方，即输出 y，否则输出 n...。by

#include

int fun（int a） *此函数用于确定输入数字是否平方*

return 0;

main()

如果在单元格 A1 中输入一个数字，则公式为 。

if(int(sqrt(a1))-sqrt(a1),"一个非完美的平方数",sqrt(a1))

因为互质数的最大公约数是 1，所以足以确定它们的最大公约数是否为 1。

var a,b,i,k:integer;

beginreadln(a,b);

for i:=a downto 1 do

if b mod i=0 then k=i;

if k=1 then writeln('true')else writeln('false');

end.

伙计，如果判断为小（不到二十亿）的数字程序很简单，你的书应该有，最常用的是审判除法。 如果数字较大，判断稍微复杂一些，数据类型扩展，无法进行模块化，只能使用测试乘法，即使用两个变量连续测试乘法（优化它，测试乘法的数据不需要很多），看看它是否会等于要判断的数字， 速度也相当快，18位数字的长度基本可以瞬间判断出来（这种方法不适合超过19位数字的长度）。如果要判断较大的数，那么只能求助于高精度计算，程序极其复杂，你可能没有那个耐心（我写了一个高精度除法，程序有100多行，懒得优化，高精度判断素数的程序可想而知， 呵呵）。

vars,i:integer;

beginreadln(s);

for i:=2 to trunc(sqrt(s))+1 dobegin

if s mod i=0 then begin writeln('it is not su shu!');exit;end;

write('it is su shu')end.

1 不是质数。

在一楼找除数太麻烦了，也是错的，因为一个合数有时只是一个除数，在2到它的平方根以内，比如9，而2 3内只有一个3。

楼上是正确的解决方案，这是一个非常基础的问题。这位仁慈的哥哥还需要更加努力。 没有简单的方法可以找到最质数并对其进行疯狂的优化。

思路：对数字进行平方得到一个数字，看是不是整数，如果是平方数，不然不是**，如下：

#include

#include

int main()

elsereturn 0;

假设给定的数字 m 小于 nmax，则：

int funjudge(int m)

返回 -1，表示它不是 Phoebinach 数; 返回号码本身是 Pheibinacci 号码。

vara,b:longint;

beginreadln(a,b);

if a>b then c:=sqr(a)else c:=sqr(b);

writeln(c);

end.方法 1 的注释也适用于此问题。 只是如果 a 和 b 是实心的，那么 c 也一定是实数。