Question

Составление циклических алгоритмов. Использование оператора цикла с постусловием repeat…until. Найти наименьшее натуральное число, дающее при делении на 2, 3, 4, 5, 6 соответственно остатки 1, 2, 3, 4, 5. ( берется наименьшее натуральное число - единица и находятся остатки от деления его на 2, 3, 4, 5 и 6; если остатки будут равны 1, 2, 3, 4 и 5, тогда это число является искомым, его надо выдать на экран и закончить программу, в противном случае, надо брать следующее натуральное число - 2 и проверять его, и так далее.)

Answer 1

Составление циклических алгоритмов - это процесс создания последовательности действий, которые повторяются определенное количество раз или до выполнения некоторого условия. Оператор цикла с постусловием repeat…until позволяет выполнить тело цикла хотя бы один раз, а затем проверить условие выхода из цикла. Если условие ложно, то цикл повторяется снова, и так до тех пор, пока условие не станет истинным .

Например, чтобы найти наименьшее натуральное число, дающее при делении на 2, 3, 4, 5, 6 соответственно остатки 1, 2, 3, 4, 5, можно использовать следующий алгоритм:

- Объявить переменную n и присвоить ей значение 1. - Повторять следующие действия: - Проверить, дает ли n при делении на 2, 3, 4, 5, 6 остатки 1, 2, 3, 4, 5 соответственно. Если да, то вывести n на экран и завершить программу. - Увеличить n на 1. - Пока n не превысит некоторого предела (например, 1000).

На языке Pascal этот алгоритм можно записать так:

var n: integer;
begin
  n := 1;
  repeat
    if (n mod 2 = 1) and (n mod 3 = 2) and (n mod 4 = 3) and (n mod 5 = 4) and (n mod 6 = 5) then
    begin
      writeln(n);
      exit;
    end;
    n := n + 1;
  until n > 1000;
end.

Если запустить эту программу, то она выведет на экран число 59, которое является искомым.