Помогите пожалуйста (( Дано целое число N>1, найти наибольшее целое число K при котором выполняется неравенство 3К

Ответы:
Таисия Крысова
08-10-2010 22:50

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.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Лена Волошын

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Помогите пожалуйста (( Дано целое число N>1, найти наибольшее целое число K при котором выполняется неравенство 3К» от пользователя Лена Волошын в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!