A. Собираемся в Хогвартс Ограничение времени 1 секунда
Ограничение памяти 62Mb
Ввод стандартный ввод или test.in
Вывод стандартный вывод или test.out
В 1990 году Джоан Роулинг была в переполненном поезде, следовавшем из Манчестера в Лондон, когда идея о Гарри Поттере, по словам писательницы, вдруг «упала на голову». Таким образом, можно сказать, что 2020 год – юбилейный для саги о Гарри Поттере. Мы с вами тоже отметим это, решив несколько задач о героях этих книг. Каждому юному волшебнику для обучения в школе Хогвартс необходимо приобрести специальные волшебные принадлежности (магические книги, шары знаний, волшебные свитки). На эти цели банк Гринготтс выдает деньги. Для каждого школьника сумма определяется индивидуально, необходимое количество принадлежностей заранее высылается совиной почтой. Известно, что цены на волшебные предметы, следующие: магическая книга – 20 золотых галеонов, шар знаний – 10 золотых галеонов, волшебный свиток – 5 золотых галеонов. Выданную банком сумму нужно потратить полностью, так как иначе деньги сгорят. От Вас требуется написать программу, которая подбирает и выведет все возможные варианты покупок для отдельно взятого юного волшебника. Обратите внимание, что у каждого ученика школы Хогвартс должна быть хотя бы одна магическая книга. Гарантируется, что на выделенную сумму можно купить хотя бы один набор волшебных предметов, удовлетворяющий̆ всем условиям.
Формат ввода
В первой строке входного файла записано одно целое число L – выданная банком сумма в галеонах (1 ≤ L ≤ 1000). Во второй строке входного файла записано одно целое число N – количество предметов, которые нужно купить (1 ≤ N ≤ 100).
Формат вывода
В M строках выходного файла вывести по три целых числа, разделенных пробелами, – количество магических книг, шаров знаний и волшебных свитков. Каждый такой набор описывает один из вариантов покупки. Причем варианты должны быть описаны в порядке увеличения количества купленных магических книг, а при равенстве этого количества – в порядке увеличения шаров знаний и, в последнюю очередь, по увеличению количества свитков.
Можно на любом языке
Program n1;
Uses CRT;
Const n=15;
Var A: array[1..n] of integer; B: array[1..n] of integer;
i,k,max: integer;
begin
randomize;
clrscr;
Writeln('ishodny massiv');
For i:=1 to n do
begin
a[i]:=random(100);
a[i]:=a[i]-50;
write(a[i]:4);
end;
writeln;
writeln('polychenny massiv');
max:=0;
For i:=1 to n do
begin
b[i]:=-a[i];
write(b[i]:4);
If a[i]=b[i] then k:=k+1;
If (b[i]>0)and(b[i]>max) then max:=b[i];
If (b[i]<0)and(-b[i]>max) then max:=-b[i];
end;
writeln;
Writeln('Kolychestvo neizmenyvshihsa elementov=',k,', samyi bolshoy po modyly element raven =',max);
writeln
end.
AutoHotkey позволяет автоматизировать задачи пользователя Windows таким образом, какой невозможен или затруднён в других языках программирования. Кроме того, этот язык компактен, самодостаточен и работает на всех версиях Windows «прямо из коробки».