Дано целое число n(> 1найдите наибольшее целое число k , при котором выполнялось неравенство 3 в степени к

Var n,i,k,j: integer; begin readln(n); i: =1; j: =3; while n> i do begin i: =i*j; k: =k+1; end; writeln(k-1); end.

Странный вопрос. минимальное количество тестов - 1, если учитывать что массив будет полностью протестирован. но если рассматривать, каждое последующие число массива как тест, то столько сколько элементов массива. минимальное 1 потому что, не указана какая процедура сортировки участвует. допустим, я создал одномерный массив из 10 элементов. если мне дана на логику (истина, ложь) то тогда мне потребуется протестировать каждый элемент массива, либо же если "тест" понятие - то один раз, пока не пройдут все элементы или пока логика не будет выполнена. если же мне дано на сравнение (больше или меньше) то мне потребуется по 2 теста на 1 элемент массива (если воспринимать слово тест локально).

Var a,b: integer; c,h: char; begin for b: = 1 to 15 do   begin   for a: = 1 to 15 do   begin     case (a*b) mod 16 of     0: h: ='0';     1..9: h: =*b)mod 16)+48);     10: h: ='a';     11: h: ='b';     12: h: ='c';     13: h: ='d';     14: h: ='e';     15: h: ='f';     end;     case (a*b)div 16 of     0: c: ='0';     1..9: c: =*b)div 16)+48);     10: c: ='a';     11: c: ='b';     12: c: ='c';     13: c: ='d';     14: c: ='e';     15: c: ='f';     end;     write(c+h,' ')   end;   writeln   end end.