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

Урок 13.1

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

8101214четыре числа316182022четыре числа3....3....и т.д

.
Заметьте. что в предыдущей задаче M было зафиксировано =2:

810два числа31416два числа3....3....и т.д.

var n, m, b, c : integer;

begin
  c := 0; 
  writeln('Vvedite celoe polozhitelnoe chislo');
  readln(n);
  writeln('Vvedite celoe polozhitelnoe chislo');
  readln(m);
 if n > 0 then
  begin
    for c := 8 to n do
    begin
      if ((c mod 2) = 0) then
      begin
        b := b + 1;
        write(c, ' ');
        if ((b mod m) = 0) then
         write(3, ' ');
      end;
    end;
  end
  else
    writeln ('Error!');
end.

КОНСОЛЬ

Vvedite celoe polozhitelnoe chislo
50
Vvedite celoe polozhitelnoe chislo
5
8 10 12 14 16 3 18 20 22 24 26 3 28 30 32 34 36 3 38 40 42 44 46 3 48 50