Submeter | Todas submissőes | Melhores | Voltar |
PSCL - PASCAL |
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 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);
Write a program which solves Frane's problem.
Input
The first line of input contains the integer N (1 ≤ N ≤ 10^9).
Output
Output the result on a single line.
Example
Input: 1 Output: 0 |
Input: 10 Output: 5 |
Input: 27 Output: 18 |
Adicionado por: | Wanderley Guimarăes |
Data: | 2008-06-10 |
Tempo limite: | 0.100s |
Tamanho do fonte: | 50000B |
Memory limit: | 1536MB |
Cluster: | Cube (Intel G860) |
Linguagem permitida: | ADA95 DOC ASM32 BASH BF C CSHARP CPP C99 CLPS LISP sbcl LISP clisp D FORTRAN HASK ICON ICK JAVA LUA NEM NICE OCAML PAS-GPC PAS-FPC PDF PERL PHP PIKE PS PRLG-swi PYTHON RUBY SCM guile SCM qobi ST TEXT WHITESPACE |
Origem: | Croatian Open Competition in Informatics - 2007/2008 - Contest #5 |