Mawamawa00
13.05.2020 03:04

A. Собираемся в Хогвартс Ограничение времени 1 секунда

Ограничение памяти 62Mb

Ввод стандартный ввод или test.in

Вывод стандартный вывод или test.out

В 1990 году Джоан Роулинг была в переполненном поезде, следовавшем из Манчестера в Лондон, когда идея о Гарри Поттере, по словам писательницы, вдруг «упала на голову». Таким образом, можно сказать, что 2020 год – юбилейный для саги о Гарри Поттере. Мы с вами тоже отметим это, решив несколько задач о героях этих книг. Каждому юному волшебнику для обучения в школе Хогвартс необходимо приобрести специальные волшебные принадлежности (магические книги, шары знаний, волшебные свитки). На эти цели банк Гринготтс выдает деньги. Для каждого школьника сумма определяется индивидуально, необходимое количество принадлежностей заранее высылается совиной почтой. Известно, что цены на волшебные предметы, следующие: магическая книга – 20 золотых галеонов, шар знаний – 10 золотых галеонов, волшебный свиток – 5 золотых галеонов. Выданную банком сумму нужно потратить полностью, так как иначе деньги сгорят. От Вас требуется написать программу, которая подбирает и выведет все возможные варианты покупок для отдельно взятого юного волшебника. Обратите внимание, что у каждого ученика школы Хогвартс должна быть хотя бы одна магическая книга. Гарантируется, что на выделенную сумму можно купить хотя бы один набор волшебных предметов, удовлетворяющий̆ всем условиям.

Формат ввода

В первой строке входного файла записано одно целое число L – выданная банком сумма в галеонах (1 ≤ L ≤ 1000). Во второй строке входного файла записано одно целое число N – количество предметов, которые нужно купить (1 ≤ N ≤ 100).

Формат вывода

В M строках выходного файла вывести по три целых числа, разделенных пробелами, – количество магических книг, шаров знаний и волшебных свитков. Каждый такой набор описывает один из вариантов покупки. Причем варианты должны быть описаны в порядке увеличения количества купленных магических книг, а при равенстве этого количества – в порядке увеличения шаров знаний и, в последнюю очередь, по увеличению количества свитков.

Можно на любом языке

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
милана59
22.03.2021 19:31
Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2).
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
   then write(fr2,Marshrut)
   else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
  begin
  read(fr, Marshrut);
  write(fr2,Marshrut);
  end;
if (kol=1) then  write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).

Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
 begin
 read(fr, Marshrut);
 seek (fr, k1);
 write(fr, Marshrut);
 seek (fr, k2);
 write (fr, y);
 end;

end;
0,0(0 оценок)
Ответ:
snopchenkoilya
24.03.2023 10:19

Этот оператор цикла Паскаля предусматривает присваивание параметру цикла V последовательных значений от начального значения, равного значению выражения Е1, до конечного значения, равного значению выражения Е2, т.е. при каждом повторении выполняется оператор присваивания V:= succ( V), и выполнение оператора S при каждом значении параметра цикла V. При этом значения выражений Е1 и Е2 вычисляются один раз, при входе в оператор цикла, а значение параметра цикла V не должно изменяться в результате выполнения оператора S. Если заданное конечное значение меньше начального значения (что допустимо), то оператор S не выполняется ни разу.

В Паскале считается, что при нормальном завершении выполнения оператора цикла значение параметра цикла не определено.

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