Помогите пожалуйста (( Дано целое число N больше 1, найти наибольшее целое число K при котором выполняется неравенство 3К
Помогите пожалуйста ((
Дано целое число N>1, найти наибольшее целое число K при котором выполняется неравенство 3К
Гость
Ответ(ы) на вопрос:
ГостьProgram while_4; var N: integer; begin readln(N); while N mod 3 = 0 do N := N div 3; // пока остаток от деления на 3 равен нулю, делим на 3. writeln(N = 1); // Выведет True или False end.
Не нашли ответ?
Похожие вопросы