fkn+antitotal

Урок 13.1 задача 16

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента:

Урок 15 задача 17

Даны два массива по 20 элементов каждый (заполните случайными числами,
так чтобы среди элементов массива при очередном запуске
программы могли встретиться и отрицательные и положительные числа).

Сравните каждый 3-ий элемент 1-ого массива с каждый 2-ым элементов 2-ого массива
- сравнение проводите пока не закончится та выборка, которая короче.

Урок 13.1

Пользователь передает целое положительное число N, выведете на экран
последовательность от 1 до N, так чтобы ширина "ёлочки" росла волнами. Например,
для N=49 получим (смотри консоль):

Урок 13.1

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

Урок 13.1

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

Урок 13.1

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

Урок 13.1

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

Урок 13.1

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

задача 6 урок 18

Решите предыдущую задачу:
Пользователь вводит в консоль строки вида (имя + произвольное число пробелов + балл):

http://fkn.ktu10.com/?q=node/8714
Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (используйте циклы repeat):

var m,n, i, j: integer;
begin
 m := 15;
 n:= 10;
 i:=1;
 repeat
 writeln();
  j:=1;
 repeat
 write ('- ');
 j:=j+1;
 until (j>m);
 i:=i+1;
 until (i>n);
  readln();
end.