fkn+antitotal

Дано целое положительное число 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, подразумевается решение через цикл )

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

Получите первую и последнюю цифры числа 15 с помощью оперций div и mod (решается без цикла)

var a, b: integer;
begin
  a := 15 div 10;
  b := 15 mod 10;
  writeln('Первая цифра числа 15 равна: ', a);
  writeln('Последняя цифра числа 15 равна: ', b);

  readln();
end.

Консоль:

Первая цифра числа 15 равна: 1
Последняя цифра числа 15 равна: 5

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

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:

4 8 12 16.......100

(при более оптимальном решении проверка через mod не потребуется)

var i: integer;
begin
  i := 4;
  while (i <= 100) do
    begin
      write(i, ' ');
      i := i + 4;
    end;

  readln();
end.  

Консоль:

4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100

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

Пользователь вводит целые числа в цикле (разные: четные, нечетные, положительные, отрицательные в любом порядке и количестве). Сохраните в переменные первые три отрицательных нечетных числа, сложите их, выведите сумму на экран и завершите цикл.

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

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()