fkn+antitotal

Задача 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))

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

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

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

Дано натуральное число N. Вычислите сумму его цифр.

var x1,a1:integer;
function summ(x,a:integer):integer;
begin
  if x {div 10}>=10 then
    result:=a+summ(x div 10, (x mod 10))
  else
    result:=a+x;
end;

begin
  x1:=765;
  a1:=0;
  write(summ(x1,a1));
  readln();
end.     

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

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

var n1,a1,b1,i1:integer;
function vivod(a,b,i,N:integer):integer;
begin
  if n>i then
  begin
    result:=vivod(b,a+b,i+1,n);
  end
  else
    result:=a;
end;
begin
  n1:=5;
  a1:=1;
  b1:=2;
  i1:=1;
  write(vivod(a1,b1,i1,n1));
  readln();
end.        

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

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

var n1,a1,b1,i1:integer;
function vivod(a,b,i,N:integer):integer;
begin
  if n>i then
  begin
    write(a);
    result:=vivod(b,a+b,i+1,n);
  end
  else
    result:=a;
end;
begin
  n1:=5;
  a1:=1;
  b1:=2;
  i1:=1;
  write(vivod(a1,b1,i1,n1));
  readln();
end.