(( дано целое число n> 1, найти наибольшее целое число k при котором выполняется неравенство 3к

PashaKuts PashaKuts    2   19.08.2019 15:30    4

Ответы
vigura2 vigura2  24.04.2020 02:25
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика