Если число является степенью числа 3, то вывести true, иначе false

@NikSchibeki · Регистрация: 15.10.2013

Author24 — интернет-сервис помощи студентам

У меня есть код паскаля

Pascal

uses crt;
var n,k:integer;
begin
clrscr;
repeat
write('Введите натуральное число, проверить на степеь числа 3 n=');
readln(n);
until n>0;
k:=1;
while k<n do k:=k*3;
write(k=n);
readln
end.

условие такое: дано целое число N(>0). Если оно является степенью числа 3,то вывести true,иначе false. вот мой код делфи:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
Var
k,n:integer;
Begin
repeat
n:=StrToInt(Edit1.Text);
Memo1.Lines.Add(' N = '+Edit1.Text);
Until N>0;
k:=1;
 
while k<n do k:=k*3;
Memo1.Lines.Add(k=n);

Пробывал разными способами,но не получилось,помогите,пожалуйста)))

@TUberwer · 04.02.2014, 23:00

Что именно у вас не получается?

Я короч подумал 3 минуты, и написал код =))
Ну если я вас правильно понял, то вот код

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
n,k : integer;
begin
n := StrToInt(Edit1.Text);
  if n>0 then
  begin
   k:=1;
   while k < n do
   begin
    k := k*3;
   end;
   if k = n then Memo1.Lines.Add('True')
   else Memo1.Lines.Add('False');
  end;
end;

	04.02.2014, 23:00