Есть ответ 👍

. У исполнителя Альфа две команды, которым присвоены номера: 1. прибавь 1 2. умножь на b(b - неизвестное натуральное число; b ≥ 2) Выполняя первую из них, Альфа увеличивает число на экране на 1, а выполняя вторую, умножает это число на b. Программа для исполнителя Альфа - это последовательность номеров команд. Известно, что программа 11221 переводит число 11 в число 118. Определите значение b.

252
494
Посмотреть ответы 2

Ответы на вопрос:


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.

Популярно: Информатика