Задача А. Год Имя входного файла:
стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени:
0.5 секунд
Ограничение по памяти: 256 мегабайт
Задано натуральное число x < 10°, найти ближайшее натуральное число Y 2х такое, что из
десятичных цифр Үможно составить '2021" (то есть, Ү содержит ноль, единицу и две двойки).
Формат входных данных
Натуральное число.
Формат выходных данных
Натуральное число.
Система оценки
Задача оценивается в
В задаче 14 тестов, каждый тест кроме, тестов из примеров оценивается в За тест, где
х 10000 будет даваться
Пример
стандартный ввод
стандартный вывод
250221
250220

272

313

Посмотреть ответы 2

Ответы на вопрос:

nigar26

Информатика

4,7(80 оценок)

Объяснение:

//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.

kaliyeva2006amina

Информатика

4,5(65 оценок)

1. короткий вариант // pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin var a: =arrrandom(10,10,20); a.println; writeln('сумма кубов ',a.select(x-> x*x*x).sum); a.transform(x-> x-5); a.println end. тестовое решение 14 17 12 17 20 11 13 18 19 20 сумма кубов 46517 9 12 7 12 15 6 8 13 14 15 2. "школьный вариант" // pascalabc.net 3.1, сборка 1230 от 27.04.2016 var a: array[1..10] of integer; i,s: integer; begin randomize; s: =0; for i: =1 to 10 do begin a[i]: =random(11)+10; write(a[i],' '); s: =s+a[i]*sqr(a[i]) end; writeln; writeln('сумма кубов ',s); for i: =1 to 10 do begin a[i]: =a[i]-5; write(a[i],' ') end; writeln end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.