В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
jeon200
jeon200
26.02.2022 09:53 •  Информатика

Задача J. Счастливое завершение Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мебибайт
Решением данной задачи является код программы, написанной на одном из предложенных языков программирования.
Гном, ставший горным королем, передал Барду обещанную часть всех сокровищ. Лучник поступил благородно, и распределил их между эльфами и жителями разрушенного Эсгарота.
Распределение произошло по следующему принципу:
N живых существ получат K сокровищ так, что у любых двух жителей количество сокровищ
будет отличаться не более, чем на 1.
Формат входных данных
В единственной строке вводятся два целых числа N и K (1 6 N, K 6 1000).
Формат выходных данных
Программа должна вывести количество живых существ, которым достанется сокровищ меньше,
чем некоторым из их товарищей.
Примеры
стандартный ввод стандартный вывод
7 30 5
7 28 0

Показать ответ
Ответ:
tural25
tural25
19.04.2021 13:20

Program b;

var a: array [1..10000] of real;

x: real;

n, i, j, k, m, max: integer;

begin

read (n);

for i:= 1 to n do read ([i]);

max:=0;

for i:=1 to n do

for k:=-1 to 1 do

begin x:=a[i]+k;

m:=0;

for j:=1+0 n do

if (a[j]-1=x) or (a[j]+0=x) or (a[j]+1=x) then m:m+1;

if m>max then max:=m;

end;

write (max);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота