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

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

int main() {
	srand((int)time(0));
	int N = rand() % 1000 + 2;
	cout << "N = " << N << endl;
	
	int K = 0, P =1;		
	while(P <= N) {
		P *= 3;
		K += 1;
	}
		
	cout << "K = " << K << endl;
	cout << "3^K = " << pow(3,K) << endl;
	cout << "3^(K-1) = " << pow(3,K-1) << endl;

	return 0;
}

import random

N = random.randrange(2,1000)
#N = 100
print('N = ', N)

K = 0
P = 1
while P <= N:
    P *= 3
    K += 1
print("K = {0}, 3^K = {1}, 3^(K-1) = {2}".format(K,3**K,3**(K-1)))
									

program While9;
var
  N,K,Temp :Integer;
begin
  Write('Введите N: ');
  Readln(N);
  K:=1;
  Temp:=3;
  while Temp<=N do
  begin
   Temp:=Temp*3;
   inc(K,1);
  end;
  Writeln(K);
end.