fkn+antitotal

Задача 12 Урок 13.1

Пользователь вводит четное целое число (если нечетное сообщите об ошибке). Делите это число в цикле на 2 до тех пор пока оно делится, выводя каждый промежуточный результат, например для 12 в консоли получим:

Задача 11 Урок 13.1

Пользователь вводит числа до тех пор пока им не будет передан ноль. В ответ на каждое число программа должна сообщать чётное оно или нет.

var a : integer;
begin
 writeln('vvedite chislo');
 readln(a);
 while a <> 0 do
   begin
     if odd(a) then
       writeln('ne chetnoe')
     else
       writeln('chetnoe');
     writeln('vvedite chislo');
     readln(a);
   end;
 writeln('konech');
 readln();
end. 

Задача 10 урок 15

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.

Задача 9 урок 15

Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.

Задача 8 урок 15

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.

Урок 22

Есть исходный код:

var s:string;  i, n: Integer;
  a:  array[1..8] of char;
begin
 writeln('Vvedite stroku');
 readln(s);
 n := 1;
 while(n<10) do      // 1-8
   begin
   for i:=1 to Length(s) do
       if (s[i]>='0')and(s[i]<='9') then
         begin
           a[n]:=s[i];
           inc(n);
         end;
   end;
 for i:=low(a) to high(a) do
   write(a[i],' '); // выводим массив
 readln();
end.

Задача:

Урок 22

У вас есть функция:

Урок 21

Напишите функцию, которая получает на вход произвольную строку вида:
5*(3+4)-7*9+3*(2+(2-7))
(арифметическое выражение со скобками любого уровня вложенности и
операциями умножения, вычитания и сложения)
и в качестве ответа возвращает результат этого выражения.
Рекомендация: сначала убедитесь, что число открывающих скобок,
равно числу закрывающих.

Урок 21

Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы
(ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика.
Используйте операцию получения остатка от деления,
и операцию целочисленного деления).

Урок 21

Пользователь получает на вход целое положительное число N напишите
рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером