Вводится целое число. Определить является ли оно точной степенью тройки. Задача: написать...

Question

Вводится целое число. Определить является ли оно точной степенью тройки. Задача: написать программу на pascal или python.

Answer 1

Код программы на pascal:

var a:integer;

t:boolean;

 begin

   t:=false;

   writeln('Введите число');

   readln(a);

   if a <= 0 then</p>

     writeln('Нет')

   else begin

   while a mod 3 = 0 do begin

     a:= a div 3;

     if (a = 1) then

       t := true;

     end;

   end;

   if t = true then

     writeln('Да')

   else

     writeln('Нет')

 end.