Program cikl_17-

Uses crt-

Var n:longint-

Begin

ClrScr-

Writeln(‘введите число’)- readln(n)-

While n&gt-3 do

N:= n div 3-

If n=3 then writeln(‘является степенью 3’) else writeln(‘не является степенью 3’)-

Readln-

End.