Винни-Пуху прислали посылку – K литров мёда. Сначала он попытался разлить его в бочонки по 2 литра, но вот незадача - 1 литр остался. Потом попытался разлить в бочонки по 3 литра, и опять осталось 2 литра. И так далее, пока он не разлил мёд в бочонки по N литров, и у него осталось N-1 литров мёда. Определите, какое минимальное количество мёда могли прислать Винни. Формат входных данных: Строка, содержащая целое число N (2≤N≤19). Формат выходных данных: Вывести требуемое число K.
98
ОТВЕТЫ
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
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
195
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Бахметев
Дан массив x1,.... x100. Найти сумму эелементво массива от ...
2019-01-18 06:22:20
Эразм
Определите значение переменной S после выполнения следующих операторов(ответ запишите ...
2019-01-18 06:20:03
Nimeena
Вычислите сумму чисел Х и У,если Х=А516 , У=3568. ...
2019-01-18 06:19:55
Патапий
При работе с электронной таблицей в ячейке Н5 записана ...
2019-01-18 06:19:47