桐桐数

Posted 2020-12-14 wuzhenhao

题目描述

桐桐很喜欢研究数字，特别喜欢研究质数。一天，桐桐发现有一些数字可以表示成两个质数相乘的形式，比如，10=2×5，2，5都是质数，所以10是一个“桐桐数”。所以桐桐决定考考你，她告诉你一个数n，请你判断n是不是“桐桐数”。

输入
一个数n(1≤n≤2^31-1)。

输出
输出一行，如果n是一个“桐桐数”，则输出“It‘s a Tongtong number.”，否则输出“It‘s not a Tongtong number．”

样例输入
10

样例输出
It‘s a Tongtong number.

思路：

模拟

代码：

 1 var
 2  n,i,x:longint;
 3  p:boolean;
 4 function ss(n:longint):boolean;
 5  var
 6   i:longint;
 7  begin
 8   if n<=1 then exit(false);
 9   for i:=2 to trunc(sqrt(n)) do
10    if n mod i=0 then exit(false);
11   exit(true);
12  end;
13 begin
14  readln(n);
15  for i:=2 to trunc(sqrt(n)) do
16   if n mod i=0 then begin x:=n div i;if ss(x) then begin write(‘It‘,‘‘‘‘,‘s a Tongtong number.‘);p:=true;break; end; end;
17  if not(p) then write(‘It‘,‘‘‘‘,‘s not a Tongtong number.‘);
18 end.

程序