(Для тех кому важно - ) 1) Без двух нулей подряд
Требуется посчитать количество последовательностей длины n, состоящих из цифр от 0 до k−1 таких, что никакие два соседних элемента последовательности не равны нулю одновременно.

Входные данные

Заданы два натуральных числа N и K (2≤K≤10; 2≤N; 4≤N+K≤18).

Выходные данные

Необходимо вывести целое число — ответ на задачу.

2)Без трёх единиц
Определите количество последовательностей из нулей и единиц длины N (длина — это общее количество нулей и единиц), в которых никакие три единицы не стоят рядом.

Входные данные

Дано натуральное число N, не превосходящее 40.

Выходные данные

Выведите количество искомых последовательностей. Гарантируется, что ответ не превосходит 2^31−1.

3) Гвоздики
В дощечку в один ряд вбиты гвоздики. Любые два гвоздика можно соединить ниточкой. Требуется соединить некоторые пары гвоздиков ниточками так, чтобы к каждому гвоздику была привязана хотя бы одна ниточка, а суммарная длина всех ниточек была минимальна.

Входные данные

В первой строке входных данных записано число N — количество гвоздиков (2≤N≤100). В следующей строке заданы N чисел — координаты всех гвоздиков (неотрицательные целые числа, не превосходящие 10000).

Выходные данные

Выведите единственное число — минимальную суммарную длину всех ниточек.

Очень молю вас, правда очень надо заранее

def func1(arr)

 arr.select { |item| (100..999).cover?(item) && (item / 100 == item % 10) }

end

def func2(arr)

 arr.count { |item| (item % 3).zero? && (item % 10 != 5) }

end

def func3(arr)

 sum = 0

 arr.each { |x| sum += x if x.even? && (10..99).cover?(x) }

 sum

end

def func4(arr)

 narr = []

 arr.each { |x| narr.push(x) if (100..200).cover?(x) }

 narr.empty? ? (arr.map { |x| x = 1 }) : narr

end

arr = Array.new(rand(2..1000))

arr.map! { |item| item = rand(0...2000) }

puts 'Исходный массив:'

puts arr

puts "\n1. Найти и вывести на экран все трехзначные числа,в которых на первом и последнем месте стоят одинаковые цифры: "

puts func1(arr)

puts "\n2. Подсчитать количество чисел,кратных 3 и не оканчивающихся на 5 и вывести на экран: "

puts func2(arr)

puts "\n3. Найти сумму всех двузначных четных чисел и вывести на экран: "

puts func3(arr)

puts "\n4. Найти в массиве числа из диапазона от 100 до 200 включительно и вывести на экран,если таких нет,то заменить все числа на 1 и вывести на экран:"

puts func4(arr)

//длинная арифметика

begin

 var a := '123456789123456789';//ReadString();

 var b := '123456789123456789123';//...

 var l := Abs(a.Length - b.Length);

 var source := l*'0';

 if a.Length > b.Length then

     insert(source, b, 1)

 else

     insert(source, a, 1);

 var s := '';

 var mem := 0;

 for var i:=a.Length downto 1 do

 begin

   var c := a[i].ToDigit + b[i].ToDigit + mem;

   mem := c div 10;

   insert((c mod 10).ToString, s, 1)

 end;

 if (mem > 0) then insert('1', s, 1);

 s.Println;

end.