С квлавиатуры вводится целое число 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.
Не нашли ответ?
Похожие вопросы