. У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b(b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на b. Программа для исполнителя Альфа - это последовательность номеров команд. Известно, что программа 11221 переводит число 11 в число 118. Определите значение b.
252
494
Ответы на вопрос:
3
Объяснение:
1) 11 + 1 = 12
2) 12 + 1 = 13
3) 13 * b = 13b
4) 13b * b = 13b^2
5) 13b^2 + 1 = 118
Решим квадратное уравнение, чтобы найти b:
13b^2 + 1 = 118
13b^2 = 117
b^2 = 117 / 13
b^2 = √9
b = 3
Var str : string; i, j: byte; schr: char; begin readln(str); //вводим строку str : = ' ' + str; //это чтобы не удлинять условие, что ниже readln(schr); //вводим символ for i : = 2 to length(str) do if ((upcase(str[i]) = upcase(schr)) and (str[i - 1] = ' ')) then inc(j); writeln(j); end.
Популярно: Информатика
-
kisa175626.06.2020 06:48
-
SVTBTN11.08.2020 22:50
-
UraR111.05.2022 08:36
-
elenasypchenkop00npz21.04.2021 20:26
-
Valya19953127.01.2020 17:13
-
Kr3sher14.08.2020 18:53
-
Реноша08.04.2020 22:32
-
Anastasiay8030.07.2020 07:26
-
polatovskiy200218.09.2022 07:46
-
нази1314.11.2020 01:23