Урок 13.1 задача 16 (новая нумерация)

Primary tabs

Submitted by alexander263 on Wed, 11/03/2021 - 18:52

Forums:

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

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

program Project1;
var m,n,i,j: integer;

begin
  j:=6;
  write('Vvedite N: '); readln(n);
  write('Vvedite M: '); readln(m);
  if(n<8)then
    write('ERROR!')
  else
    begin
      for i:=1 to n do
        if(i mod (m+1)<>0)then
          begin
            j:=j+2;
            if(j>n)then
              break
            else
              write(j,' ')
          end
        else if(j=n) then
          break
        else
          write(3,' ');
    end;
  readln();
end.
  • Log in to post comments
  • 2247 reads
vedro-compota's picture

vedro-compota

Wed, 11/03/2021 - 19:17

попробовать решить без break (вообще)

_____________
матфак вгу и остальная классика =)

alexander263

Sun, 11/07/2021 - 13:18 

program Project1;
var m,n,i,j: integer;

begin
  j:=6;
  i:=0;
  write('Vvedite N: '); readln(n);
  write('Vvedite M: '); readln(m);
  if(n<8)then
    write('ERROR!')
  else
    begin
      while(j<n)do
        begin
          i:=i+1;
          if(i mod(m+1)<>0)then
             begin
               j:=j+2;
               write(j,' ')
             end
          else
             begin
               write(3,' ');
             end;
        end;
    end;
  readln();
vedro-compota's picture

vedro-compota

Sun, 11/07/2021 - 13:33

засчитано

_____________
матфак вгу и остальная классика =)