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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/29 02:03:27
已知正整数n是两个不同的质数的乘积,试求出较大的那个质数.输入输入只有一行,包含一个正整数n.输出输出只有一行,包含一个正整数p,即较大的那个质数.样例输入21样例输出7用pascal解已知正整数n是

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

已知正整数 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.
肯定对

没懂起意思 是高中的程序问题? 可不可以配上一张图片