Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Программа ПАСКАЛЬ
Ввести натуральное число 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.