Little Frane is already in tenth grade, but is still struggling with Pascal in computer class. For
homework, his teacher wrote the following program into his notebook, and he needs to determine the
output, given the integer
Copy
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);
Write a program which solves Frane's problem.
Input Specification
The first line of input contains the integer
Output Specification
Output the result on a single line.
Sample Input 1
Copy
1
Sample Output 1
Copy
0
Sample Input 2
Copy
10
Sample Output 2
Copy
5
Sample Input 3
Copy
27
Sample Output 3
Copy
18
Comments