Задача А. Год Имя входного файла:
стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени:
0.5 секунд
Ограничение по памяти: 256 мегабайт
Задано натуральное число x < 10°, найти ближайшее натуральное число Y 2х такое, что из
десятичных цифр Үможно составить '2021" (то есть, Ү содержит ноль, единицу и две двойки).
Формат входных данных
Натуральное число.
Формат выходных данных
Натуральное число.
Система оценки
Задача оценивается в
В задаче 14 тестов, каждый тест кроме, тестов из примеров оценивается в За тест, где
х 10000 будет даваться
Пример
стандартный ввод
стандартный вывод
250221
250220
07052017
1
16.01.2021 10:44
13
Другие вопросы по теме Информатика
gasymov1974
28.02.2021 16:39
mariazeleznak2
21.09.2019 14:10
olzhabekzhazira
21.09.2019 14:10
оксаночка1412
21.09.2019 13:12
LELEGEG
21.09.2019 13:13
ulanachukalkina
21.09.2019 14:10
Популярные вопросы
- Позитивні та негативні наслідки груп(наприклад «+»-підтримка и тд...
3 - 3.Как вы думаете, какие качества характера стать Ю. Гагарину первым...
2 - Реостат изготовлен из железной проволоки (удельное сопротивление...
2 - 7. Сравните числа:от иб) 14 и 4 | 5 и 1,6 м2...
2 - К чему призывал Лютер христиан 3 пункта...
2 - Ребят нужно кратко написать этот текст (6-7предложений) НА КАЗАХСКОМ...
1 - Решить: К 600 граммам 19%-ного раствора ортофосфорной кислоты добавили...
3 - Составь определения Вселенная Галактика Солнечная система Планета...
2 - Срок до 19 апреля что такое открытый слог? * 1.слог, который оканчивается...
2 - Как решить это задание?:) ...
2
Объяснение:
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
writeln('III');
var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
writeln;
while a.Any() do
begin
write(a[0], ' ');
a.RemoveAt(0);
if not a.Any then break;
write(a.Last, ' ');
a.RemoveAt(a.Count - 1);
if not a.Any then break;
var n := 0;
if a.Count > 1 then n := a.Count div 2 - 1;
write(a[n], ' ');
a.RemoveAt(n);
end;
end.