Решение задачи While 4

#include <bits/stdc++.h>
using namespace std;

int main() {
	srand((int)time(0));
	int N = rand() % 1000 + 1;
	//N = 81;
	cout << "N = " << N << endl;
	
	double K = N * 1.0;
	while(K >= 3)
		K /= 3;
		
	cout << "Power of 3: ";
	cout << ((K == 1) ? "true" : "false");
	cout << endl;

	return 0;
}

import random

#N = random.randrange(1,1000)
N = 81
print('N = ', N)

while N >= 3:
    N /= 3
print("Является степенью 3: ", (N==1))
									

program While4;
var
  A,temp:Integer;
begin
  Write('Введите A: ');
  Readln(A);
  temp:=A;
  while temp<A do //ищем максимальное 3 в степени
    temp:=temp*3;   //которое не больше А
  Write(temp=A);
end.