если ет у вас ф математика ил спецккурс то получается m -n и делай уровнение
var n: integer;begin readln(n); if(n mod 3 = 0) or (n = 1) then writeln('Является степенью тройки') else writeln('Не является');end.
если ет у вас ф математика ил спецккурс то получается m -n и делай уровнение
var
n: integer;
begin
readln(n);
if(n mod 3 = 0) or (n = 1) then writeln('Является степенью тройки')
else writeln('Не является');
end.