Ответы на вопрос:
1) 8 2) 7 выведет 1 3) 11 строка, поменять на k : = k + 1; 14 строка заменить на if n = 1 then рабочий код var n, k: integer; begin read(n); k : = 0; while n mod 7 = 0 do begin k : = k + 1; n : = n div 7; end; if n = 1 then writeln(k) else writeln('he существует') end. правильное решение данной const divider = 7; var n: integer; k: real; begin read(n); k : = ln(n) / ln(divider); if round(k) = k then writeln(round(k)) else writeln('he существует'); end.
Популярно: Информатика
-
Ananasabricos10.04.2021 01:43
-
ilyajdbda04.03.2023 18:01
-
Витуся11102.06.2021 04:40
-
ааа51620.10.2020 18:51
-
fvrvdv17.10.2021 05:47
-
tihayasonyap0c4ug20.10.2020 23:33
-
анлггрн76530.09.2022 06:06
-
123456789085720.12.2021 10:21
-
polina378206.12.2021 13:36
-
denis2004360102.04.2023 23:23