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

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

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

Решение вложенными циклами:

program zadacha16;
var i, j, n, m: integer;
begin
  writeln('Vvedite chislo N:');
  readln(n);
  writeln('Vvedite chislo N:');
  readln(m);
  i := 8;
    if (n >= 8) and (n > 0) then
    while i<=n do
      begin
        j:=1;
        while j <= m*2 do
          begin
            if (i mod 2 = 0) and (i<=n) then
              write(i,' ');
              i:=i+1;
              j:=j+1;
          end;
        if i <= n then
          write('3 ');
      end
    else
      writeln('Chislo ne sootvetstvyet kriteriyam');
  readln();
end. 

Решение в 1 цикл:

program zadacha16;
var i, j, n, m: integer;
begin
  writeln('Vvedite chislo N:');
  readln(n);
  writeln('Vvedite chislo M');
  readln(m);
  i := 8;
  j:=0;
    if (n >= 8) and (n > 0) then
        while i <= n do
          begin
            write(i,' ');
            i := i + 2;
            j:=j+1;
              if j = m then
                begin
                  write('3 ');
                  j:=0;
                end;
          end
    else
      writeln('Chislo ne sootvetstvyet kriteriyam');
  readln();
end.