Геннадий
4 год назад
Задание C. ЮбилейИмя входного файла: стандартный поток вводаИмя выходного файла: стандартный поток выводаОграничение по времени: 1 секундаОграничение по памяти: 256 мебибайтСегодня у Мишиной бабушки юбилей: ей исполняется 90 лет В честь такой знаменательной даты он решил приготовить подарок своими руками. Миша знает, что его бабушка —в прошлом математик — точно обрадуется, если получит в подарок число. Он достал всефигурки цифр, которые у него были, и разложил их в ряд, в результате чего получилосьчисло N.Миша решил, что такое банальное число его бабушке не понравится. Теперь он хочетузнать наибольшее число, кратное 90, которое может быть получено перестановкой цифрчисла N.Формат входных данныхВ единственной строке задано натуральное число N.Формат выходных данныхВыведите единственное число — ответ на поставленную задачу, если он существует.В противном случае, выведите «−1» (без кавычек).Примерыстандартный поток ввода стандартный поток вывода90 90207 7203456 -1ПодЗадание 1 (баллы: 30)В N не более 1000 цифр.ПодЗадание 2 (баллы: 70)В N не более 105 цифр.Решение в Паскале
ОТВЕТЫ
Antip
Nov 12, 2020
//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.
212
