A. тот самый фильм
имя входного файла: стандартный ввод
имя выходного файла: стандартный вывод
ограничение по времени: 1 секунда
ограничение по памяти: 256 мегабайт
давным-давно (в 1785 г.) рудольф эрих распе опубликовал книгу о приключениях барона мюнхгаузена. а чуть менее давно (в 1979 г.) был снят тот самый фильм про того самого мюнхгаузена.
сценарий фильма был написан по ( отдалённым) мотивам книги, и в нём не так уж много
пересечений с оригинальной книгой.
к примеру, про оленя, у которого на голове выросло вишнёвое дерево, была придумана ещё самим мюнхгаузеном (и вошла и в книгу распе, и в фильм), а вот о встрече с
шекспиром появилась именно в фильме, в книге её не было.
впрочем, с тех пор как карл фридрих иероним барон фон мюнхгаузен (реальный человек,
родившийся 11 мая 1720 г.) стал персонажем, над его образом поработали многие
писатели (вероятно, сам барон оценил бы их выдумки, будь у него возможность прочесть их). и
авторы полагают, что могут добавить к этому образу несколько собственных штрихов.
по случаю «круглых дат» того самого фильма и того самого мюнхгаузена готовится викторина,
участники которой будут набирать очки, отвечая на вопросы. каждый вопрос состоит из краткого
содержания , предположительно рассказанной бароном мюнхгаузеном. участник же должен ответить, присутствует ли эта только в книге, только в фильме, или же и в книге, и в
фильме.
выведите единственное целое число — количество очков, набранных участником
если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.).
начнём:
137 / 2 = 68 выписываем остаток (1)
68 / 2 = 34 выписываем остаток (0)
34 / 2 = 17 выписываем остаток (0)
17 / 2 = 8 выписываем остаток (1)
8 / 2 = 4 выписываем остаток (0)
4 / 2 = 2 выписываем остаток (0)
2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001;
ответ: 001001
procedure PrintMatrix(a: array[,] of integer);
begin
for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
begin
writeln;
for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
write(a[i, j], ' ');
end;
writeln;
end;
begin
var a := MatrixRandom(9, 9, 10, 99);
PrintMatrix(a);
var i := (a.GetLowerBound(0) + a.GetUpperBound(0)) div 2 + (a.GetLowerBound(0) + a.GetUpperBound(0)) mod 2;
var j := (a.GetLowerBound(1) + a.GetUpperBound(1)) div 2 + (a.GetLowerBound(1) + a.GetUpperBound(1)) mod 2;
writeln('A[', i, ', ', j, '] = ', a[i, j]);
end.