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

Primary tabs

isaac_fan's picture
Submitted by isaac_fan on Thu, 07/07/2022 - 18:29

Forums:

урок 13.1

Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа316182022четыре числа3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810два числа31416два числа3....3....и т.д. 

var
i,n,j,m:integer;
begin
  i:=8; 
  j:=0;
  writeln('ведите число 1');
  readln(m);
  writeln('ведите число 2');
  readln(n);
  if n >= 0 then 
  begin
    while i<=n do
    begin
      j:=j+1; 
      if(j > m) then
      begin
        write(3, '  ');
        j:=0
      end
       else
       begin
         write(i, ' ');
         i:=i+2; 
       end
     end
  end
  else
    writeln('ошибка404');
  readln();
end.
  • Log in to post comments
  • 1517 reads
vedro-compota's picture

vedro-compota

Tue, 07/12/2022 - 21:13

нормально, решить вложенными циклами

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

isaac_fan's picture

isaac_fan

Mon, 07/18/2022 - 13:26 

var
i,n,j,m:integer;
begin
  i:=8;
  j:=0;
  writeln('ведите число 1');
  readln(m);
  writeln('ведите число 2');
  readln(n);
  if n >= 0 then
  repeat
  begin
    while i<=n do
    begin
      j:=j+1;
      if(j > m) then
      begin
        write(3, '  ');
        j:=0
      end
       else
       begin
         write(i, ' ');
         i:=i+2;
       end
     end
  end
  until(n>0);
  else
    writeln('ошибка404');
  readln();
end.
vedro-compota's picture

vedro-compota

Thu, 07/21/2022 - 18:47

сначала решим 15-ю задачу вложенными циклами, потом вернемся сюда

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

isaac_fan's picture

isaac_fan

Mon, 07/25/2022 - 13:22

задача 15 http://fkn.ktu10.com/?q=node/15656