fkn+antitotal

Задача 9 Урок 15

Заполните массив из 5 элементов случайными числами из любого диапазона.
Далее пользователь вводит в цикле значения от 1 до 5 -- удаляйте из массива очередной элемент с позиции очередного введенного пользователем числа, сдвигая оставшиеся элементы второго массива влево, заполняя то, что справа нулями. Распечатывайте промежуточной состояние массива, после каждого удаления.

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

Предварительная справка: настоящие счеты выглядят как-то так (кости, с помощью которых отсчитывают число разрядов, нанизаны на спицы):

В некоем виртуальном пространстве есть виртуальные, опять же, ASCII-счеты, с 7-ю спицами по 10 костяшек на каждой, в сброшенном состоянии (условный ноль) они выглядят так:

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

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

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

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

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

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

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

var i, j: integer;
begin
  i := 1;
  j := 1;
  repeat
   repeat
    write('- ');
    j += 1;
   until j > 6;
   writeln();
   j := 1;
   i += 1;
  until i > 4;
  readln();
end.

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

Урок 13 задача 21

Решение одним циклом с переменной типа boolean

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

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

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

Пользователь вводит целое положительное число N, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N, сформированной следующим образом:
8 10 3 12 14 3 16 18 3 20 22 3 и т.д.
-- то есть всё начинается с восьмерки, затем число увеличивается на 2, затем выводит тройка и ещё пара увеличенных на 2 чисел и т.д.

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

С помощью вложенных циклов выведите на экран таблицу деления чисел от 1 до 9.

var
  i, j: integer;
begin
  for i:= 1 to 9 do
     for j:= 1 to 9 do
         writeln(j, '/',i , ' = ', j div i, ' ');
  readln();
end.

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

С помощью вложенных циклов выведите на экран таблицу умножения числе от 1 до 9, начнётся она как-то так:
1x1 = 1
1x2 = 2
......

var
  i, j: integer;
begin
  for i:= 1 to 9 do
     for j:= 1 to 9 do
        begin
          writeln(i, '*', j, ' = ', i * j, ' ');
        end;
  readln();
end.