| Главная » Статьи » Задачи с acm.timus.ru » Пакет решений на 15.03.08 |
1023
| Var N,I: LongInt; Begin Readln(N); For I:=3 to (N div 2+1) do If (N mod I) = 0 then break; If (I=(N div 2+1)) and ((N mod I)<>0) then I:=N; Writeln(I-1); End. | |
| Категория: Пакет решений на 15.03.08 | Добавил: solver (15.03.2008) | |
| Просмотров: 773 |