fkn+antitotal

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

Выведите на экран таблицу умножения используя только циклы вида repeat/until.

var i,j: integer;
begin
  i := 1;
  repeat
    j := 1;
       repeat
         writeln(i, '*', j, '=', i * j, ' ');
         j := j + 1;
       until (j > 9);
    i := i + 1;
  until (i > 9);
  readln();
end.   

Задание 4 Урок 13.2

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

если ноль, то все кости справа:

---++++++++++

если три, то значащая часть слева, а все остальное справа:

+++---+++++++

если девять:

Задание 3 Урок 13.2

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

Задание 2 Урок 13.2

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

Задание 1 Урок 13.2

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

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

var m,j: integer;
begin
m:=0;
j:=0;
  repeat
    repeat
       write('- ');
       j:=j+1;
     until(j>=6);

    m:=m+1;
    j:=0;
    writeln();
  until(m>=4);

readln();
end.

Задание 22 Урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например, для N=49 получим:
123--сначала до двух456789--потом до трёх101112--возвращаемся к одному131415161718192021--тут уже четыре2223242526--снова убывает 2728293031323334353637383940414243444546474849

Задание 21 Урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=19 получим:
123456--максимум три числа7891011121314--снова три числа1516171819.....

Задание 20 Урок 13.1

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

Задание 19 Урок 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

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

1 Способ:

http://fkn.ktu10.com/?q=node/8539

var a, b :integer;
  begin
    writeln('Vvedite A : ');
    readln(a);
    writeln('Vvedite B : ');
    readln(b);
    if(a>b) then
    writeln(12);
    readln();
  end.

//Сравните два числа, если первое больше второго, то выведите на экран "12".
//(здесь нужно использовать неполную форму условного оператора)