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

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

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 3 четыре числа 3 16 18 20 22 3 четыре числа 3....3....и т.д.

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

Решение:

program u13z16;
var i,j,m,n: integer;
begin
  write('vvedite chislo n - ');
  readln(n);
  write('vvedite chislo m - ');
  readln(m);
  if n>=8 then
  begin
    i:=8;
    while i<=n do
    begin
      if j=m then
      begin
        write(3,' ');
        j:=0;
      end
      else
      begin
        write(i,' ');
        i:=i+m;
        j:=j+1;
      end;
    end;
  end
  else
    writeln('ERROR');
  readln();
end.

Консоль:

vvedite chislo n - 50
vvedite chislo m - 3
8 11 14 3 17 20 23 3 26 29 32 3 35 38 41 3 44 47 50