fkn+antitotal

Задача 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

Один цикл:

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

Пользователь передает целое положительное число N, выведете на экран последовательность из единиц в количестве N "ёлочкой", например для N=18
1
1 1
1 1 1
1 1 1 1
1 1 1 1 1
1 1 1

Один цикл:

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.

Два цикла: