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

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

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

Gani Kuatbekov, [01.10.20 16:24]
var N,a,m,i: integer;
begin
  a:=0;
  writeln('vvedite cislo N');
  readln(n);
  writeln('vvedite cislo M');
  readln(m);
  if (n > 0) then
    while (a < n) do
       for i:=1 to m do
     begin
       a := a + 2;
       write(' ',a);
       write(' ', 3);
     end
  else
    writeln('oshibka');
  readln();
end.
vedro-compota's picture

добавить условие, исправить форматирование

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

gani84's picture

var N,a,m,i: integer;
begin
  a:=0;
  writeln('vvedite cislo N');
  readln(n);
  writeln('vvedite cislo M');
  readln(m);
  if (n > 0) then
    while (a < n) do
       begin
       for i:=1 to m do
       begin
       a := a + 2;
       write(' ',a);
       write(' ', 3)
     end
     end
  else
    writeln('oshibka');
   readln();
end.   
vedro-compota's picture

  1. форматирование
  2. распечатка консоли
  3. вопрос, если что-то непонятно

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

gani84's picture

Распечатка консоли
Vvedite chislo ogranichitel
5
Vvedite chislo
50
8 10 12 14 16 3  18 20 22 24 26 3  28 30 32 34 36 3  38 40 42 44 46 3  48 50
var
i,n,j,m:integer;
begin
i:=8; // начальное значение счетчика
j:=0;// начальное значение для внутреннего счетчика
writeln('Vvedite chislo ogranichitel');
readln(m);
writeln('Vvedite chislo');
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('oshibka');//если введеное значение отрицательное или равно нулю
readln();
end.
vedro-compota's picture

решение засчитано

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