"B" и все последующие слова были проигнорированы, так как количество слов в запросе не может превышать 32.
Ответ
Uses Crt;
var b, n, k:integer;
begin
ClrScr;
write('Введите n=');
readln(n);
b:=1; k:=0;
while 3*b < n do
begin
k:=k+1;
b:=b*3;
end;
writeln('k=', k, ' 3^k=', b);
readln;
end.
Объяснение:
Программа на скрине! Надеюсь помог!
program bar;
uses Crt;
const
nn = 100;{ максимальный размер массива }
var
i, j, n: integer;
a: array[1..nn] of integer;
begin
randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
a[i] := random(199) - 99;
write(a[i], ' ')
end;
writeln;
j := 1;
for i := 2 to n do
if a[i] < a[j] then
j := i;
writeln('N min = ', j);
ReadKey
end.
begin
k1:=0
k2:=0
writeln (' Введите три числа');
if x<span><0 then k1:=k1+1;</span>
<span>if x<span><0 then k2:=k2+1;(ЕЩЕ " ЧИСЛА)</span></span>
<span><span>intil x=0;</span></span>
<span><span>writeln ('k1=',k1,'',k2=',k2)</span></span>
<span><span>end</span></span>
<span><span>я думаю наверно так))))))))))))))))</span></span>