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

Ответы 1

  • var a,i:integer; b:boolean;begina:=1;repeat b:=true; for i:=2 to 6 do  b:=b and (a mod i = (i-1)); if not b then a:=a+1;until b;writeln('a = ',a);end.Результат:a = 59
    • Автор:

      william86
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years