Входные данные:
В первой строке вводится целое положительное число
(
). Во второй строке через пробел вводится
чисел
(
).
Выходные данные:
В единственной строке выходного файла OUTPUT.TXT через пробел вывести все
элементов массива
, каждый из которых увеличен в 2 раза.
Пример ввода:
6
1 2 3 4 5 6
Пример вывода:
2 4 6 8 10 12
Писал на: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
Исходный код решения находится в приложении ниже. Открыть можно только в веб-версии.
В тестах iq есть не только числа, но и буквы. Буква заменяется на ее порядковый номер в алфавите, и он используется как число. Числа, в свою очередь, связываются определенными закономерностями.Полученное в результате решения число может быть снова заменено буквой. Чтобы было удобнее использовать связь буквы и ее номера в алфавите, составим пары буква-число.Заготовленный русский алфавит с номерами букв поможет намного быстрее справиться с заданием. A-1; Б-2; В-3; Г-4; Д-5; Е-6; Ё-7; Ж-8; З-9; И-10; Й-11; К-12; Л-13; М-14; Н-15; О-16; П-17; Р-18; С-19; Т-20; У-21; Ф-22; Х-23; Ц-24; Ч-25; Ш-26; Щ-27; Ъ-28; Ы-29; Ь-30; Э-31; Ю-32; Я-33. Еще одна таблица — пары букв. Буквы в паре одинаково удалены от концов алфавита.А — Я — 1 З — Ч — 9 П — П — 17Б — Ю — 2 И — Ц — 10В — Э — 3 Й — Х — 11Г — Ь — 4 К — Ф — 12Д — Ы — 5 Л — У — 13Е — Ъ — 6 М - Т — 14Ё — Щ — 7 Н — С — 15Ж — Ш — 8 О — Р — 16 1) Найти букву и число:3 8 13 ?В Ж Л ?Показать решение2) Вставить пропущенные буквы:Б Ы ? Х М<span>Ю Д ? Й Т
</span>Показать решение3) Какие буквы пропущены?В Е З ?Я Ы Ч ?Показать решение4) Найти, какую букву надо вставить:<span>А Ж Д ? З О Л
</span>Показать решение5) Заменить знак вопроса буквой:<span>А ? З О Ч
</span>Показать решение6) Определить, какая буква пропущена:В Д Ж Л Т ?Показать решение7) Какую букву надо поставить вместо знака вопроса? И М Е Р Ф ?Показать решениеПроанализируйте задания на номер буквы в алфавите вместе с ребенком. Обсудите, как еще могут быть связаны буква и ее номер. Затем дайте ребенку задание связать буквы и числа самостоятельно.
//Pascal ABC.NET v3.1 сборка 1172
begin
Var seq:=SeqWhile(ReadInteger(),x -> ReadInteger(),x -> x<>0).ToArray;
writeln(seq.Select((x,i)->Rec(x,i+1)).Where(x->x.Item1=seq.Min).Select(x->x.Item2));
end.
Пример ввода:
2
3
4
0
Пример вывода:
<span>[1]</span>
Да зависит, если будет 5 фпс, то у тебя монитор будет просто тормозить, а если 30-60 (стабильная 60) или больше, то монитор будет не лагать