Программа ПАСКАЛЬ Ввести натуральное число n. Выяснить при помощи цикла является ли оно степенью числа 3
Var n:real; begin readln(n); while(n>3) do n:=n/3; if(n=3) then writeln('Da') else writeln('Net'); end.
блин только увидел что надо натуральное
неверно. разве число 33 будет степенью тройки? оно кратно трем, но не является его степенью. программа будет выдавать ошибочные значения.
а с чего вы взяли что 33 будет показано как степень тройки?
тут все верно,только тип не integer но в задании этого и не требуется так что все верно
ну, не знаю, лично у меня немного другое решение :I
решений может быть бесконечное множество) не обязательно чтобы верным было одно единственное