• Написать программу в Паскале
    8)Найдите хотя одно натуральное число, которое делится на 11, а при делении на 2, 3, 4, ..., 10 дает в остатке 1

Ответы 1

  • const N=11;var i,d,k:integer;begin  k:=0;  repeat  k:=k+N;  d:=0;  for i:=2 to 10 do if k mod i = 1 then d:=d+1;  until (d=9) or (K>32000);  if d=9 then writeln('Искомое число = ',K)         else writeln('Число не найдено');end.
    • Автор:

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

Войти через Google

или

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

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

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