fkn+antitotal

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

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

Задача 5 Урок 22 Пользователь получает на вход целое положительное число N напишите рекурсивную процедуру, которая выведет все числа Фиббоначи от первого до N-ого

Задача 4 Урок 22 Дано целое положительное число N. вычислите N! (эн факториал).

var
  n :integer ;

function factorial(n :integer):integer;
begin
  if (n = 0) then  // если 0
    result := 1    // то выход из рекурсии
  else
    result := n * factorial(n-1);  // рекурсивный вызов 5 * factorial(4)...4 * factorial(3)  и т. д пока n  не станрет 0
end;

begin
  writeln('enter');
  readln(n);
  writeln('factorial egually: ');
  writeln(factorial(n));
  readln();
end.           

Вывод консоли:

Задача 3 Урок 22 Дано целое положительное число A и целое положительно число B. Выведите на экран все числа, расположенные между между ними.

Задача 2 Урок 22 Дано целое положительное число N. Выведите на экран все число от 1 до N (по возрастанию).

Задача 1 Урок 22 Дано целое положительное число N.Выведите на экран все число от Nдо 1 (по убыванию)

function conclusionfive(n :integer) :integer;
begin
  if n > 0 then
  begin
    write(n, ' ');
    conclusionfive := conclusionfive(n - 1);  // Рекурсивный вызов. До тех пор пока  условие if не выплолнится
  end;
end;

begin
  conclusionfive(5);  // в функцию с аргументом 5
  readln();
end.             

Вывод консоли:

5 4 3 2 1

Задача 2 Урок 23

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

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

Задача:

Задача 1 Урок 23

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

program my_program;
type b = array[1..10] of integer; // объявление типа

Задача 8 Урок 22

"Калькулятор":
Напишите функцию, которая получает на вход произвольную строку вида:

5*(3+4)-7*9+3*(2+(2-7))

(арифметическое выражение со скобками любого уровня вложенности и операциями умножения, вычитания и сложения)

и в качестве ответа возвращает результат этого выражения.