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

С квлавиатуры вводится целое число n. Найти наименьшое  целое число большее n; такое, что оно делится нацело на 27 и не делится на 2 и на 5 PASCAL help
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы