1. Задача 1 Кубики ( ів) Петрик допомагає молодшому брату прибирати іграшки. Кубики вони складають у коробку із кришкою, що має висоту K сантиметрів, ширину L сантиметрів та глибину M сантиметрів. Скільки кубиків можна скласти у коробку, якщо всі кубики однакові і кожен має довжину ребра X сантиметрів? Розміри коробки задано цілими числами, кожне з яких не перевищує 1000, довжина ребра кубика – ціле число, що не перевищує 100.
Технічні умови:
Вхідні дані (input.dat): Вихідні дані (output.dat):
Перший рядок вхідного файлу містить число
K, L, M, X через пропуск. В вихідний файл вивести єдине ціле число - максимальну кількість кубиків, які можна скласти у коробку
Приклади вхідних і вихідних даних
input.dat output.dat
50 60 40 5 960

Задача 2 Щасливі числа ( ів)
Усім відомо, що щасливі числа - це ті числа, які складаються тільки із щасливих цифр 7 і/або 4. Петрик вирішив здійснити підрахунок усіх щасливих чисел. Для цього він спочатку підрахував серед однозначних чисел, потім серед двозначних и так далі аж до n-значних. Напишіть програму, яка буде визначати кількість щасливих чисел, кожне з яких буде складатись із не більше ніж n цифр.
Технічні умови:
Вхідні дані (input.dat): Вихідні дані (output.dat):
Єдиний рядок вхідного файлу містить число
n (n <= 16). В вихідний файл вивести єдине ціле число - кількість щасливих чисел

Приклад
input.dat output.dat
2 6
3 14

Задача 3 Точка рівноваги ( ів)
Петрик записав на аркуші паперу n натуральних чисел. Кожне з чисел він пронумерував починаючи з 0. Петрик захотів визначити номер такого числа, серед записаних , відносно якого різниця суми чисел, розташованих ліворуч та праворуч є найменшою. До ть Петрикові виконати це завдання
(якщо таких чисел декілька, вивести те, яке має найменший порядковий номер).
Технічні умови:
Вхідні дані (input.dat): Вихідні дані (output.dat):
Перший рядок вхідного файлу містить число
n (n <= 106) - кількість чисел записаних Петриком. Другий рядок вхідного файлу містить значення чисел через пробіл. В вихідний файл вивести єдине ціле число - порядковий номер числа.

Приклад
input.dat output.dat
11
3 2 1 6 4 3 4 5 2 1 2 5

/gamemode survival или creative или adventure - позволяет включить другой режим игры, survival - Выживание, creative - Креатив, adventure - приключенческий.

В режиме креатива вы бессмертны, можете летать, а в инвентаре у вас все существующие блоки.

/time set day - включить день

/time set night - включить ночь

/xp 100 - получить 100 опыта (число можно менять).

/xp Игрок 100 - дать игроку 100 опыта.

/weather set clear - выключает дождь\снег.

/weather set rain - включает дождь\снег.

/toggledownfal - переключает погоду с одной на другую, с ясной на дождливую например.

/tp [ник игрока 1] [ник игрока 2] - позволяет телепортировать игрока 1 к игроку 2

/tp [игрок] [x] [y] [z] - телепортировать игрока по координатам x,y,z

/spawnpoint [имя игрока] [x] [y] [z] - позволяет указать точку спавна игрока в мире, если ккординаты x,y,z не указаны, то точкой станет то место где вы стоите.

/setworldspawn - установит точку спавна для всех игроков

/effect [имя игрока] [эффект] [длительность] [уровень] - позволяет наложить определенный эффект на игрока.

Пример: /effect Anton 25 100 5 - наложит на игрока Anton эффект левитации на 100 секунд с силой 5.

Список эффектов

/effect [имя игрока] clear - удалить все наложенные на игрока эффекты

/enchant [имя игрока] [эффект] [уровень] - зачаровывает предмет находящийся в руках.

Например /enchant Anton 22 2 - зачарует предмет в руках игрока Anton на чары "Разящий клинок 2"

Список чар:

/kill - убить вашего персонажа

/kill Игрок - убить игрока

Читы на получение предметов:

Данные команды сложны для запоминания, для получение предметов лучше установить мод JEI или NEI (включить в них режим жульничества).

Наиболее ценные предметы:

/give Игрок minecraft:diamond 64 - получить 64 алмаза

/give Игрок minecraft:diamond_horse_armor - получить броню лошади

/give Игрок minecraft:map - получить карту

/give Игрок minecraft:compass - получить компас

/give Игрок minecraft:golden_apple - получить золотое яблоко

/give Игрок minecraft:tnt 64 - получить 64 динамита

/give Игрок minecraft:mob_spawner - получить спавнер монстров

/give игрок spawn_egg 1 0 {EntityTag:{id:creeper}} - получить яйцо спавна крипера

/give игрок minecraft:elytra - получить элитруname_tag

/give игрок minecraft:name_tag - получить бирку

/give игрок minecraft:ender_pearl - получить эндер жемчуг

/give игрок minecraft:nether_star - получить звезду края

/give игрок minecraft:gunpowder - получит порох

/give игрок minecraft:saddle - получить седло

Объяснение:

1. Программа в одной из современных версий Паскаля:

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
begin
  var s:=ReadlnString('Исходная строка:');
  Writeln('Результат: ',s.MatchValues('[a-zA-ZА-Яа-яёЁ]').JoinIntoString(''));
end.

Тестовое решение:

Исходная строка: // PascalABC.NET 3.1, сборка 1211 от 31.03.2016
Результат: PascalABCNETсборкаот

2. Программа в "школьной версии"

// PascalABC.NET 3.1, сборка 1211 от 31.03.2016
const
  legal=['A'..'Z','a'..'z','А'..'Я','а'..'я','Ё','ё'];
var
  s:string;
  i:integer;
begin
  Write('Исходная строка: '); Readln(s);
  for i:=Length(s) downto 1 do
    if not(s[i] in legal) then Delete(s,i,1);
  Writeln('Результат: ',s);
end.