A1129 | [COCI-2007_2008-contest5]#5 PASCAL
来源COCI
时间限制1s
内存限制128MB
通过 / 提交0/0
题目描述
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.
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.
输入格式
The first line of input contains the integer N (1 ≤ N ≤ 10^9).
输出格式
Output the result on a single line.
输入输出样例
输入 #1
1
输出 #1
0
输入 #2
10
输出 #2
5
输入 #3
27
输出 #3
18
暂无题解
C++ 编辑器
输入
输出
可保存默认模板;新题优先使用已保存模板。
当前快捷键仅展示,暂不支持修改。
- 撤销
Ctrl / ⌘ + Z - 重做
Ctrl / ⌘ + Y - 查找
Ctrl / ⌘ + F - 全选
Ctrl / ⌘ + A - 复制
Ctrl / ⌘ + C - 剪切
Ctrl / ⌘ + X - 粘贴
Ctrl / ⌘ + V - 自动排版
工具栏排版按钮 - 草稿保存
编辑时自动保存到本机
历史
提交记录
状态说明时间源码
AI
作答助手
你好,我是作答助手。可以问思路、复杂度、样例含义或代码报错原因;不会直接给出完整 AC 代码。
确定要清空代码吗?
提交通过
评测结果:Accepted