fkn+antitotal

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

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

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

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

program lesson20_6;
function sum(n: integer): integer;
begin
    if n div 10 = 0 then
        result := n
    else
        result := n mod 10 + sum(n div 10);
end;

var
    n: integer;
begin
    n := 88888;
    write('Summa = ', sum(n));
    readln();
end. 

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

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

program lesson20_5;
function numF(f1, f2, n: integer): integer;
begin
    if n = 1 then
        result := f1
    else if n = 2 then
        result := f2
    else
        result := numF(f2, f2 + f1, n - 1);
end;

var
    n: integer = 10;
begin
    write(numF(0, 1, n));
    readln();
end.

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

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

program lesson20_4;
procedure numF(f1, f2, n: integer);
begin
    write(f1, ' ');
    if (f2 < n) then
        numF(f2, f2 + f1, n);
end;

var
    n: integer = 30;
begin
    numF(0, 1, n);
    readln();
end.

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

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

program lesson20_3;
function fact(n: integer): integer;
begin
    if (n = 0) or (n = 1) then
        result := 1
    else
        result := n * fact(n - 1);
end;

var
    n: integer;
begin
    n := 5;
    write(n, '! = ', fact(n));
    readln();
end.

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

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

program lesson20_2;
procedure allNumber(n, m: integer);
begin
    write(n, ' ');
    if n < m then
        allNumber(n + 1, m);
end;

var
    n, m: integer;
begin
    n := 15;
    m := 10;

    if n < m then
        allNumber(n, m)
    else
        allNumber(m, n);

    readln();
end.

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

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

program lesson20_1;
procedure allNumber(n: integer);
begin
    write(n, ' ');
    if n > 1 then
        allNumber(n - 1);
end;

var
    n: integer;
begin
    n := 10;
    allNumber(n);
    readln();
end.

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

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var a: integer;
begin
  a := 35;
  while (a < 117) do
  begin
    if((a mod 2)=0)or(a>45)and(a<99)and((a mod 2)<>0)then
       write(a, ' ');
    a:=a+1;
  end;
  readln();
end.

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

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var a: integer;
begin
  a := 35;
  while (a < 117) do
  begin
    if ((a mod 3) = 0)then
    writeln(a,' ');
    a:=a+1;
  end;
  readln();
end.

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

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.
Первое введенное пользователем число можно сложить с единицей.