Ответы на вопрос:
ответ
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.
объяснение:
Популярно: Информатика
-
Lizzza111110.08.2022 01:57
-
dgfdgrrfd09.08.2020 23:56
-
lewa013130.07.2021 16:48
-
ep1cook1e12.11.2022 07:17
-
ivankirichko214.03.2020 01:39
-
SofaBai01.11.2022 20:13
-
bisenkoda09.11.2021 23:04
-
Verabogomaz13.11.2022 02:02
-
dimatitov1428dimasik26.11.2020 23:40
-
миха39514.09.2021 18:36