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

Primary tabs

gani84's picture
Submitted by gani84 on Sat, 07/21/2018 - 08:53

Forums:

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

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

var m, a, i: integer;
begin
  writeln('vvedite celoe chislo');
  readln(m); //вводим число ограничитель
  writeln('vvedite vtoroe celoe chislo');
  readln(a); //вводим второе число
  while (m > a) do //
    begin
      for i := 1 to a do // выводим равенства очередной строки, счётчик как правый множитель
      write(i, ' '); // переносим строку
      readln();
    writeln('vvedite vtoroe celoe chislo');
  readln(a); //вводим число
    end;
  writeln('zaversheno!');
  readln();
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 10285 reads
vedro-compota's picture

vedro-compota

Sun, 09/30/2018 - 17:33

в принципе решение очень похоже на верное, но оно не точно по тексту:

Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.

-- исправьте.
+ одна погрешность в форматировании.

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

gani84's picture

gani84

Wed, 06/24/2020 - 15:37 

var m, a, i: integer;
begin
  writeln('vvedite celoe chislo ogranichitel');
  readln(m); //вводим число ограничитель
  writeln('vvedite vtoroe celoe chislo');
  readln(a); //вводим второе число
  while (m > a) do //
    begin
      if (a > 1) then
      for i := 1 to a do // выводим равенства очередной строки, счётчик как правый множитель
          write(i, ' '); // переносим строку
          readln();
      writeln('vvedite vtoroe celoe chislo');
      readln(a); //вводим число
    end;
  writeln('zaversheno!');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 06/24/2020 - 19:26 

while (m > a) do //

неправильное сравнение.

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

gani84's picture

gani84

Thu, 08/13/2020 - 08:27 

var m, a, i: integer;
begin
  writeln('vvedite celoe chislo ogranichitel');
  readln(m); //вводим число ограничитель
  while (m <> a) do //
    begin
      writeln('vvedite vtoroe celoe chislo');
      readln(a); //вводим число
      if (m = a) then break
      else
      if (a > 1) then
         for i := 1 to a do // выводим равенства очередной строки, счётчик как правый множитель
             write(i, ' '); // переносим строку
             readln();
    end;
  writeln('zaversheno!');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 08/26/2020 - 19:34 

 while (m <> a)

тоже неправильное сравнение

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

gani84's picture

gani84

Wed, 09/16/2020 - 14:05 

var m, a, i: integer;
begin
  writeln('vvedite celoe chislo ogranichitel');
  readln(m); //вводим число ограничитель
  while (m >= a) do //
    begin
      writeln('vvedite vtoroe celoe chislo');
      readln(a); //вводим число
      if (m = a) then break
      else
      if (a > 1) then
         for i := 1 to a do // выводим равенства очередной строки, счётчик как правый множитель
             write(i, ' '); // переносим строку
             readln();
    end;
  writeln('zaversheno!');
  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 09/16/2020 - 15:12

если ввести

m = 15

и

a = 18

-- сработает неправильно. Исправьте

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

gani84's picture

gani84

Thu, 09/17/2020 - 17:52 

var m,a, i: integer;
begin
  writeln('vvedite celoe chislo ogranichitel');
  readln(m); //вводим число ограничитель
  while (m >= a) do //
    begin
      writeln('vvedite vtoroe celoe chislo');
      readln(a); //вводим число
      if (m < a) then break
      else
      if (a > 1) then
         for i := 1 to a do // выводим равенства очередной строки, счётчик как правый множитель
             write(i, ' '); // переносим строку
             readln();
    end;
  writeln('zaversheno!');
  readln();
end.
vedro-compota's picture

vedro-compota

Sun, 11/22/2020 - 16:45

переменная a не инициализирована.
Решение засчитано.

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