fkn+antitotal

Задача 1 Урок 14.1:

Напишите процедуру, которая просит пользователя ввести три числа, и потом выводит их в обратном порядке

procedure podprog();
var a,b,c:integer;
begin
  writeln('vvedite chislo');
  readln(a);
  writeln('vvedite chislo');
  readln(b);
  writeln('vvedite chislo');
  readln(c);
  writeln(c,b,a);
end;
begin
   podprog();
   writeln('End');
   readln();
end.

Вывод консоли:

Задача 5 Урок 13.2:

Задание: визуализируйте на счетах введенное пользователем число.

Задача 4 Урок 13.2:

Подготовительная задача для "счет" Пользователь вводит число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице)

Задача 3 Урок 13.2:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):

var m, m2, i, j: integer;
begin
  m := 4;
  m2 := 10;
  for i := 1 to m do
    begin
      for j := 1 to m2 do
        if (i = 1) or (i = m) or (j = 1) or (j = m2) then
          write('+ ')
        else
          write('- ');
    writeln();
    end;
readln();
end.  

Вывод консоли:

Задача 2 Урок 13.2:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):

Задача 1 Урок 13.2:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

var m, a, b,m2: integer;
begin
  a:=1;
  m := 10; 
  m2:=4;
  repeat
    b:=1;
    repeat
      write('-');
      b+=1;
    until (b>m);
    writeln();
    a+=1;
  until (a>m2);
  readln();
end.  

Вывод консоли:

----------
----------
----------
----------

Задача 23 Урок 13.1:

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами.

Задача 22 Урок 13.1:

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1.

Задача 21 Урок 13.1:

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные

Задача 20 Урок 13.1:

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:
1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18

Один цикл: