Винни-Пушку прислали посылку K литров мёда. Сначала он попробовал разлить

Винни-Пуху прислали посылку K л. мёда. Поначалу он попробовал разлить его в бочонки по 2 литра, но вот незадача - 1 литр остался. Позже попробовал разлить в бочонки по 3 литра, и вновь осталось 2 литра. И так далее, пока он не разлил мёд в бочонки по N литров, и у него осталось N-1 л. мёда. Определите, какое малое количество мёда могли прислать Винни.

Формат входных данных:
Строка, содержащая целое число N (2N19).

Формат выходных данных:
Вывести требуемое число K.

Задать свой вопрос
1 ответ
Var n,k,i:integer; f:boolean;
begin
readln(n);
k:=1;
f:=false;
while not f do
 begin
 k:=k+1;
 f:=true;
 for i:=2 to n do
  f:=f and (k mod i=i-1);
 end;
writeln(k);
end.

Пример (для 19 длинно считает, можно улучшить, если необходимо):
19
232792559
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт