Меню сайта

Задача №34

Определить, является ли натуральное число —Nстепенью числа 3 или нет.


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.

Категория: Циклы | Дата: 13.11.12

Меню раздела
Блок