fkn+antitotal

Задача 6 урок 20

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

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

Задача 6 урок 20

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

program u20z6;
var n:integer;
function fun(f2,f1,n1:integer):integer;
begin
  if (n1>1) then
  begin
    result:=fun(f1,f1+f2,n1-1);
  end
  else
    result:=f2;
end;
begin
  writeln('vvedite n');
  readln(n);
  writeln(fun(0,1,n));
  readln();
end.

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

Пользователь вводит исходную строку s.
Ваша программа должна вернуть другую строку, в которой все смежные (соседние) повторяющиеся символы должны быть "удалены" (т.е. повторов в новой строке быть не должно)

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

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

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

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

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

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

Задача 4 Урок 20

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

var N,b,a : integer;

function Num(N,b,a: integer) : integer;
var c: integer;
begin
  c := b;
  b := a + b;
  a := c;
  if ((a+b)<N) then
    begin
      write(a+b,' ');
      Num(N,b,a);
    end;
end;

begin
  readln(N);
  a := 0;
  write(a,' ');
  b := 1;
  write(b,' ');
  Num(N,b,a);
  readln;
end.  

Задача 3 Урок 20

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

var N,res : integer;

function Num(N : integer) : integer;
begin
  if (N = 0) or (N = 1) then
    result := 1
  else
    result := Num(N - 1) * N;
end;

begin
  readln(N);
  res := Num(N);
  writeln(res);
  readln;
end. 

Задача 5 урок 20

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

program u20z5;
var n:integer;
procedure pro(f2,f1,n1:integer);
begin
  writeln(f2);
  if (n1>1) then
  begin
    pro(f1,f2+f1,n1-1);
  end;
end;
begin
  writeln('vvedite n');
  readln(n);
  pro(0,1,n);
  readln();
end.