программа ПАСКАЛЬ
Ввести натуральное число n. Выяснить при помощи цикла является ли оно степенью числа 3

неверно. разве число 33 будет степенью тройки? оно кратно трем, но не является его степенью. программа будет выдавать ошибочные значения.

а с чего вы взяли что 33 будет показано как степень тройки?

тут все верно,только тип не integer но в задании этого и не требуется так что все верно

ну, не знаю, лично у меня немного другое решение :I

решений может быть бесконечное множество) не обязательно чтобы верным было одно единственное

var n:real;beginreadln(n);while(n>3) don:=n/3;if(n=3) then writeln('Da')else writeln('Net');end.