fkn+antitotal

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

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

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

Всем привет.

Урок 9 Задача 12 (на всякий случай ссылка на урок http://fkn.ktu10.com/?q=node/8539)

Вопрос по вот этой задаче. Сначала сама задача:

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end. 

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Ошибка наблюдается при быстром повторном вызове метода с логгером.

для nestjs-pino 1.4.0 она выглядит так:

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

Данную задачу нужно делать через один цикл?

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

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

Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810два числа3101214три числа316182022четыре числа3....3....и т.д.

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

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа316182022четыре числа3....3....и т.д.

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

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

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

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

var m,n: integer;
begin
  n := 1;
  while (n <= 9) do
     begin
       m := 1;
       while (m <= 9) do
          begin
            writeln(n, '/', m, '=', n / m, ' ');
            m := m + 1;
          end;
       n := n + 1;
     end;
  readln();
end. 

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

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

var m,n: integer;
begin
  m := 0;
  while (m < 9) do
  begin
    n := 1;
    m := m + 1;
    while (n < 10) do
    begin
    writeln(m, '*', n, ' ', '=', ' ', m * n, ' ');
    n := n + 1;
    end;
  end;
  readln();
end.