Помогите пожалуйста (( Дано целое число N>1, найти наибольшее целое число K при котором выполняется неравенство 3К
Answers & Comments
Аня123777Program while_4;varN: integer;beginreadln(N);while N mod 3 = 0 do N := N div 3; // пока остаток от деления на 3 равен нулю, делим на 3.writeln(N = 1); // Выведет True или Falseend.
Answers & Comments