Moap
4 год назад
Мишки Кеша и Тучка решили сделать на Лисичкин День рождения салют из n фейерверков. Они решили расставить фейерверки вдоль прямой с k различными лунками для фейерверков. В целях безопасности Кеша с Тучкой решили расставить фейерверки так, чтобы минимальное расстояние между ними было как можно больше. Однако для полной безопасности и этого недостаточно, так как если расстояние между двумя фейерверками меньше или равно 1, то они взрываются и могут поранить мишек. Вам нужно выяснить смогут ли Тучка с Кешей, соблюдая все правила безопасности, устроить салют из n фейерверков.Входные данныеПервая строка содержит два целых числа k (2≤k≤104) и n (2≤n≤k) — число лунок для фейерверков и число фейерверков.Вторая строка содержит k натуральных чисел xi, расположенных по возрастанию, — координаты позиций (xi≤109).Выходные данныеЕсли мишки не смогут устроить салют, выведите «NO» (без кавычек). Иначе в первой строке выведите «YES» (без кавычек), а во второй строке выведите одно целое число — наибольшее минимальное возможное допустимое расстояние между двумя фейерверками.Система оценкиМаксимальный балл за задачу: 100.Примерывходные данные4 41 3 5 7выходные данныеYES2входные данные2 23 4выходные данныеNO
ОТВЕТЫ
Виолета
Nov 16, 2020
var x,a,b,c,n:integer; f,f1:text;
begin
write(' vvedite chislo ');
assign (f, 'Digit.dat');
rewrite(f);
readln(x);
writeln(f,x);
close(f);
a:=x div 100;
b:=x mod 100 div 10;
c:=x mod 10;
if (a < b) and (a < c) then N:=10*b+c else if (a > b) and (b < c) then N:=10*a+c else N:=10*a+b;
assign(f1, 'Digit.sol');
rewrite(f1);
writeln('N=',N);
writeln(f1,N);
close(f1)
end.
34
