Вася написал такую программу (для удобства код приводится на трех языках программирования): python: x = ? while x < 98 or x % 9 == 0: print('*') x += 3 pascal: x : = ? ; while (x < 98) or (x mod 9 = 0) do begin writeln('*'); x : = x + 3; end; c++: x = ? ; while (x < 98 or x % 9 == 0){ cout « '*'; x += 3; } в результате ее работы было напечатано 30 звездочек. какое наибольшее число могло быть написано вместо знака вопроса?

Давайте точно определим, сколько раз выполнится условие в цикле. Нам нужно ровно 30 звёздочек. Тогда x будет равен как минимум 3 · 30 = 90. А теперь пройдём ещё несколько циклов до тех пор, пока условия не будут выполняться. 90 + 3 = 93 - выполняется, 96 - выполняется, 99 - выполняется (кратно 9), 102 - не выполняется. Вот то самое число - максимальное. Отнимем от него минимальное количество и получим значение начального x:

102 - 90 = 12

ответ

12

При определении значений подобных функций переменная y вычисляется по-разному (по разным формулам) в зависимости от значения x.

Такие задачи решаются с конструкции условного оператора if - else. Поскольку в данном случае мы имеем три условия (x > 0, x = 0 и x < 0), то потребуется использование еще вложенной конструкции if - else, т. к. в языке Pascal нет оператора множественного ветвления (оператор case в данном случае не подходит).

В языке программирования Паскаль (да и в других тоже) желательно вложенные конструкции if - else помещать во внешнюю ветку else, а не if. Так проще не запутаться.

Таким образом, алгоритм вычисления значения функции может быть таким:

Если x > 0, то у = x - 2

Иначе (ниже идет вложенная конструкция)

Если x = 0, то y = 0

Иначе y = |x|.

В последнем пункте можно опустить оператор if с проверкой, что x < 0, так как если ход выполнения программы дошел до этого пункта, то x уже другим быть и не может (варианты, когда он больше или равен нулю, уже были исключены).

Для определения модуля (абсолютного значения) переменной можно использовать встроенную функцию abs() языка Pascal. В данном случае можно обойтись и без нее: поскольку уже известно, что x отрицателен, то, чтобы получить положительное число (модуль), нужно его умножить на -1.

var

   x, y: integer;

 

begin

   write ('x = ');

   readln (x);

 

   if x > 0 then

       y := x - 2

   else

       if x = 0 then

           y := 0

       else

           y := abs(x);

 

   writeln ('y = ', y);

 

end.

Объяснение:

                                                          профессия  на открытом воздухе       в помещениях     в небольших         в небольших                                                                         замкнутых             условиях                                                                          пространство.       труда