标签：src bsp pen block code hid play adl opened
题目描述
桐桐很喜欢研究数字，特别喜欢研究质数。一天，桐桐发现有一些数字可以表示成两个质数相乘的形式，比如，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.
标签：src bsp pen block code hid play adl opened
原文地址：https://www.cnblogs.com/wuzhenhao/p/13235886.html
