Определить, является ли натуральное число —Nстепенью числа 3 или нет.
Program cikl_17-
Uses crt-
Var n:longint-
Begin
ClrScr-
Writeln(‘введите число’)- readln(n)-
While n>-3 do
N:= n div 3-
If n=3 then writeln(‘является степенью 3’) else writeln(‘не является степенью 3’)-
Readln-
End.
Категория: Циклы |
Дата: 13.11.12