Решение задачи 17 из главы 13.1

Primary tabs

Submitted by testok on Fri, 10/09/2020 - 16:29

Forums:

Решение задачи 17 из главы 13.1

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

program Project17;
var a, b, c, f: integer;
begin
  b:=8;
  c:=1;
  writeln('Vvedite zeloe polozhitelnoe chislo bolshe 8:');
  readln(a);
  writeln('Vvedite zeloe polozhitelnoe chislo dliny otrezka:');
  readln(f);
  if (a > 0) then
  begin
     while (b < a) do
           repeat
              for c:=1 to f do
                begin
                  write(b, ' ');
                  b:=b+2;
                end;
              c:=c+1;
              write (3, ' ');
           until (c > f);
  end
  else
     writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.
  • Log in to post comments
  • 1586 reads

testok

Tue, 10/13/2020 - 09:21 

program Project17;
var a, b, c, f: integer;
begin
  b:=6;
  c:=1;
  writeln('Vvedite zeloe polozhitelnoe chislo bolshe 8:');
  readln(a);
  writeln('Vvedite zeloe polozhitelnoe chislo dliny otrezka:');
  readln(f);
  if (a > 0) then
  begin
     while (b < a) do
           repeat
              for c:=1 to f do
              begin
                  b:=b+2;
                  if (b > a) then
                     break;
                  write(b, ' ');
              end;
              c:=c+1;
              if (c = 2) then
                 break;
              write (3, ' ');
           until (c > f);
  end
  else
     writeln('Vy vveli otrizatelnoe chislo!');
  readln();
end.