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

Question

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

Answer 1

Var n:real;
begin
readln(n);
while(n>3) do
n:=n/3;

if(n=3) then writeln('Da')
else writeln('Net');
end.

Comments

блин только увидел что надо натуральное

---

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

---

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

---

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

---

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

---

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