Впоселке функционируют три средние школы №1, №2 и №3. администрация поселка выделила по k дачных участков для каждой школы. участки расположены в ряд вдоль автотрассы и нумерованы от 1 до n (n = 3k). учителя школы №1 уже выбрали себе участки, теперь предстоит распределить участки между учителями школы №2 таким образом, чтобы выбранные k участков имели наименьшую протяженность. (выбирать участки подряд мешает выбор, сделанный учителями школы №1) мерой протяженности для выбранных участков является число участков, находящихся между крайними участками (из выбранных участков). например, если выбраны пять участков с номерами 3, 4, 8, 12, 14, то протяженность этих участков равна 14 – 3 – 1 = 10. требуется написать программу, которая сделала бы правильный выбор участков для учителей школы №2. входные данные: входной файл состоит двух строк; в первой - одно натуральное число: k – число участков, выделенных для каждой школы; 1 k 999999. во второй строке - номера участков, выделенных для учителей школы №1. выходные данные: выходной файл состоит из k 4 натуральных чисел – номеров участков для учителей школы №2. формат ввода 6 1 4 7 12 15 17 формат вывода 8 9 10 11 13 14
Язиля111
2
30.09.2019 09:20
0
Другие вопросы по теме Информатика
alexvip7777ap
18.01.2021 15:03
Yskakova206
18.01.2021 15:02
niga123098
24.01.2021 16:06
ekaterina0405
21.12.2020 10:30
идинахер89
21.12.2020 10:32
propprap
21.12.2020 10:33
Aigerim1111111111
21.12.2020 10:34
mirankov
21.12.2020 10:37
Популярные вопросы
- Да или нет? 1.можно жить без еды 1 месяц, несколько дней без воды, но...
1 - Кратко о жизнедеятельности иманова амангельды...
1 - Схемы формирования времени present simple...
2 - Какая же, оценка будет если набрал 28 из 47 ?...
2 - We wanted to know who (is singing/was singing) in the next room. i always...
3 - Ть будь-ласка! чому , на вашу думку , саме зараз варто замислитися над...
3 - И) х – |x – 1, если х = 1; 3) x + 2 +х, если x -2; решить...
2 - При каком значении переменной х верно равенство [tex]2 \sqrt{x } = 0.4[/tex]...
1 - При взаимодействии 75 г 40%-ного раствора муравьиного альдегида с гидроксидом...
3 - Один мальчик толкает санки с силой 50 h, а другой тянет их за верёвку...
1
степень
Program Jopascal;
Var
i, A: longint;
x,
u, j,
N, m : longint;
Function FDiv (A, left : LongInt) : LongInt;
var
d,
i : longint;
begin
d := 1;
for i := left to Trunc (Sqrt (A)) do
if (A mod i = 0)
then
begin
d := i;
Break;
end;
if (d <> 1)
then
FDiv := d
else
FDiv := A;
end;
Function g (N, u : longint) : longint;
var
i : longint;
begin
i := 0;
while (N mod u = 0)
do
begin
Inc (i);
N := N div u;
end;
g := i;
end;
Begin
Assign (Input, 'input.txt');
Assign (Output, 'output.txt');
Reset (Input);
Read (A);
Close (Input);
m := 0;
N := 1;
i := FDiv (A, 2);
u := 2;
while (A > 1)
do
begin
N := N * i;
j := 0;
while (A mod i = 0)
do
begin
Inc (j);
A := A div i;
end;
if (j > m)
then
begin
m := j;
u := i;
end;
i := FDiv (A, i + 2);
end;
x := 1;
while (g (N * x, u) * N * x < m)
do
Inc (x);
N := N * x;
ReWrite (Output);
Write (N);
Close (Output);
End.