已知正整数 n是两个不同的质数的乘积,试求出较大的那个质数 .输入输入只有一行,包含一个正整数 n.输出输出只有一行,包含一个正整数p,即较大的那个质数.样例输入21样例输出7用pascal解

分类: 作业答案 • 2022-07-31 10:34:46

问题描述：

已知正整数 n是两个不同的质数的乘积,试求出较大的那个质数 .
输入
输入只有一行,包含一个正整数 n.
输出
输出只有一行,包含一个正整数p,即较大的那个质数.
样例输入
21
样例输出
7
用pascal解

答

var
i,n:longint;
begin
readln(n);
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then begin writeln(n div i); halt; end;
end.
肯定对