[COCI2007-2008#5] PASCAL
题目描述
小 Frane 已经十年级了,但是在信息课上学习 Pascal 仍然很吃力。老师写下了如下的 Pascal 程序作为家庭作业,他需要根据输入的整数 N N N 来判断程序的输出。
readln(N);
counter := 0;
for i := N-1 downto 1 do begin
counter := counter + 1;
if N mod i = 0 then break;
end;
writeln(counter);
请您编写一个程序来解决这个问题。
输入格式
一行,一个整数 N N N。
输出格式
一行,表示以上程序的输出结果。
样例 #1
样例输入 #1
1
样例输出 #1
0
样例 #2
样例输入 #2
10
样例输出 #2
5
样例 #3
样例输入 #3
27
样例输出 #3
18
提示
对于 100 % 100\% 100% 的数据, 1 ≤ N ≤ 1 0 9 1\le N\le10^9 1≤N≤109。
本题分值按照原比赛设置,满分 30 30 30 分。
Scratch实现
后续
接下来我会不断用scratch来实现信奥比赛中的算法题、Scratch考级编程题实现、白名单赛事考题实现,感兴趣的请关注,我后续将继续分享相关内容