#P7933. [COCI2007-2008#5] PASCAL
[COCI2007-2008#5] PASCAL
题目描述
小 Frane 已经十年级了,但是在信息课上学习 Pascal 仍然很吃力。老师写下了如下的 Pascal 程序作为家庭作业,他需要根据输入的整数 来判断程序的输出。
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);
请您编写一个程序来解决这个问题。
输入格式
一行,一个整数 。
输出格式
一行,表示以上程序的输出结果。
1
0
10
5
27
18
提示
对于 的数据,。
本题分值按照原比赛设置,满分 分。