Ghodar
6 год назад
Помогите пожалуйста ((
Дано целое число N>1, найти наибольшее целое число K при котором выполняется неравенство 3К
ОТВЕТЫ
Chec
Jul 4, 2019
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.
224
