С квлавиатуры вводится целое число n. Найти наименьшое целое число большее n; такое, что...

Question

С квлавиатуры вводится целое число n. Найти наименьшое целое число большее n; такое, что оно делится нацело на 27 и не делится на 2 и на 5
PASCAL help

Answer 1

Var
    n: integer;

begin
    readln(n);
    repeat
        n := n + 1;
    until (n mod 27 = 0) and (n mod 2 <> 0) and (n mod 5 <> 0);
    writeln(n);
end.

Comments

неа, это не равнозначно, например 15 на 5 делится а на 19 нет)

---

10

---

ну, так если число делится хоть на одно из чисел 2 и 5, то оно не подходит, 15 делится на 5 значит отсеиваем, если б критерием было бы деление на 10, то 15 не отсеялось бы, что не так?

---

Бывает)