Урок 13.1 задача 5: Вложенные циклы, ответы на вводимые пользователем числа - Обсуждение решения

Primary tabs

Submitted by alexander263 on Wed, 10/13/2021 - 20:06

Forums:

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while. 

var m,numb,i:integer;

begin
  write('vvedite ogranichitel: '); readln(m);
  while(m>=1)do
    begin
    write('vvedite chislo: '); readln(numb);
    if (numb>m)then
       break;
    for i:=1 to numb do
      begin
        write(i,' ');
      end;
    writeln();
    end;
  readln();
end.
  • Log in to post comments
  • 2638 reads
vedro-compota's picture

vedro-compota

Wed, 10/13/2021 - 20:42

форматирование

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

alexander263

Wed, 10/13/2021 - 20:46

Исправлено.

var m,numb,i:integer;

begin
  write('vvedite ogranichitel: '); readln(m);
  while(m>=1)do
    begin
      write('vvedite chislo: '); readln(numb);
      if (numb>m)then
         break;
      for i:=1 to numb do
        begin
          write(i,' ');
        end;
      writeln();
    end;
readln();
end.

alexander263

Sun, 10/17/2021 - 10:52 

var m,numb,i:integer;

begin
  write('vvedite ogranichitel: '); readln(m);
  write('vvedite chislo: '); readln(numb);
  while(numb<m)do
    begin
      i:=0;
      while (numb>i)do
        begin
          i:=i+1;
          write(i,' ');
        end;
      writeln();
      write('vvedite chislo: '); readln(numb);
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 10/17/2021 - 12:34 

      while (numb>i)do
        begin
          i:=i+1;
          write(i,' ');
        end;

лучше использовать for

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

alexander263

Wed, 10/20/2021 - 17:44 

var m,numb,i:integer;

begin
  write('vvedite ogranichitel: '); readln(m);
  write('vvedite chislo: '); readln(numb);
  while(numb<m)do
    begin
      for i:=1 to numb do
        write(i,' ');
      writeln();
      write('vvedite chislo: '); readln(numb);
    end;
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 10/20/2021 - 19:28

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

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