fkn+antitotal

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

задание 5 Урок 21

program U21z5;
var
  n: integer;
procedure fibonachi(n:integer; f0:integer =0; f1:integer =1);
begin
  if(n > 0) then
  begin
    writeln(f1);
    fibonachi(n-1, f1, f0+f1);
  end;

end;

begin

  write('Vvedite chislo: ');
  readln(n);
  writeln();
  fibonachi(n);

  readln();
end.

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

задание 4 Урок 21

program U21z4;

function fact(n:integer):integer;
begin
  if n = 1 then
    fact:= 1
  else
    fact:= n*fact(n-1);
end;
begin
  writeln(fact(6));
  readln;

end.    
         

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

задание 3 Урок 21

program U21z3;
procedure AtoB( a,b:integer);
begin
if (a < b)  then
  begin
    writeln(a);
    AtoB(a + 1,b);
  end;
end;

begin
  AtoB(2+1,8);
  readln();
end.

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

задание 2 Урок 21

program U21z2;
var n : integer;

 procedure OneToN(m,n: integer);
  begin
      if(m < n ) then
      begin
         writeln(m + 1);
         OneToN(m + 1, n);
      end
  end;
begin
  OneToN(0,8);
  readln();
end.       

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

задание 1 Урок 21

program U21z1;
function nTo1 (n:integer):Integer;
 begin
  if n > 0 then
   begin
     writeln(n);
     nTo1(n-1);
   end;
  end;
begin
  nTo1(5);
readln();
end.          

{Дан текстовый файл, в котором с в ASCII-стиле нарисованы цепочки из цифр, которые
связаны по горизонтали и вертикали.
Все цепочки составляют одно дерево, которое устроено так:
всегда есть общий корень и это цифра
по горизонтали цепочка не разрывается пробелами, соединяется же с помощью
последовательностей знака - (тире).
по вертикали цепочка не разрывается переносом строк, соединяется же с помощью
вертикальных последовательностей символа | (вертикального разделителя).

{Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке
не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.
Задание: найдите максимальное число, c учетом того, что числом
считаются подряд идущие цифры не только по горизонтали, но и по вертикали. }

Задание 3 урок 19

У вас есть текстовый файл с информацией об итогах соревнований (каждая строка имеет формат: имя + произвольное число пробелов + балл 1 + произвольное число пробелов + балл 2):

	
Вася    16     485
Коля    17   555
Юра     18   61

..........

-- где:
слева указаны имена участников, а справа число баллов.
Первое число в каждой строке -- штрафные баллы набранные участниками, а второе число -- "положительные баллы", то есть если у нас есть строка:

Задание 14 Урок 11:

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Задание 13 Урок 11:

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:

46541

(используйте опеции div и mod, подразумевается решение через цикл )