首页 > 试题广场 >

var n, i, ans : integer; fun

[填空题] 
var
  n, i, ans : integer;
function gcd(a, b : integer) : integer;
begin
  if a mod b = 0
  then gcd := 0;
else gcd := gcd(b, a mod b);
end;
begin
  readln(n);
  ans := 0;
  for i:=1 to n do
    if gcd(n, i) = i
    then ans := ans + 1;
  writeln(ans);
end.

输入：120
输出：1
查看正确选项
添加回答

这道题你会答吗？花几分钟告诉大家答案吧！

提交观点

问题信息

完善程序-Pascal 提高 Pascal 数学
上传者：牛客309901号
难度：
0条回答 915浏览

热门推荐

相关试题

扫一扫，把题目装进口袋

求职之前，先上牛客

扫描二维码，进入QQ群

扫描二维码，关注牛客公众号