2. У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 2 (b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на экране на b, а выполняя вторую, умножает это число на 2. Программа для исполнителя Бета – это последовательность номеров команд. Известно, что программа 21212 переводит число 18 в число 198. Определите значение b. 3. У исполнителя Бета две команды, которым присвоены номера: 1. прибавь b 2. умножь на 2 (b – неизвестное натуральное число) Выполняя первую из них, Бета увеличивает число на экране на b, а выполняя вторую, умножает это число на 2. Программа для исполнителя Бета – это последовательность номеров команд. Известно, что программа 12121 переводит число 13 в число 136. Определите значение b.

2. b = 9

3. b = 12

Объяснение:

#2 (21212)

((18*2+b)*2+b)*2=198

((36+b)*2+b)*2=198

(72+2*b+b)*2=198

(72+3*b)*2=198

144+6*b=198

6*b=198-144

6b=54

b=9

#3 (12121)

((13+b)*2+b)*2+b=136

(26+2*b+b)*2+b=136

(26+3*b)*2+b=136

52+6*b+b=136

7*b=136-52

7*b=84

b=12

1.                                                                        

program raf105;

const n = 10;

var y:array[1..n] of real;

i,x,c,a:integer;

begin

write('Введите значение X: ');

readln(x);

write('Введите значение C: ');

readln(c);

write('Введите значение A: ');

readln(a);

writeln('Элементы массива:');

for i:=1 to n do

begin

 y[i]:= sqrt(x-5*c+x/14+a);

 writeln(y[i]);

end;

end.

2.                                                                        

program raf105;

const n = 10;

var a:array[1..n] of integer;

i:integer;

begin

writeln('Положительные, нечётные элементы сгенерированного массива:');

for i:=1 to n do

begin

 a[i]:= random(-100,100);

 if (a[i] > 0) and ((a[i] mod 2) <> 0)

   then writeln(a[i]);

end;

end.

3.                                                                        

program raf105;

var a:array[1..3,1..3] of integer;

pro,i,j:integer;

begin

writeln('Вводите 9 чисел по очереди');

pro:= 1;

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j]<0) and (a[i,j]>-14)

     then pro *= a[i,j];

 end;

writeln('Произведение отрицательных элементов больше -14:');

writeln(pro);

end.

4.                                                                        

program raf105;

const n = 10;

var a:array[1..n] of integer;

pro,k,i:integer;

begin

write('Номер заменяемого элемента: ');

readln(k);

writeln('Вводите ',n,' чисел по очереди');

pro:= 1;

for i:=1 to n do

begin

 readln(a[i]);

 if (a[i] mod 5)=0

   then pro *= a[i];

end;

a[k]:= pro;

write('Вывод: ');

for i:=1 to n do

 write(a[i],' ');

end.

Язык программирования PascalABC

1.

program raf105;

var a:array[1..3,1..3] of integer;

i,j,x:integer;

begin

writeln('Введите 9 чисел по очереди');

x:= 1;

for i:=1 to 3 do

 for j:=1 to 3 do

 begin

   readln(a[i,j]);

   if (a[i,j] < 0) and (a[i,j] > -14)

     then x *= a[i,j];

end;

writeln('Вывод: ',x);

end.

2.

program raf105;

var a:array[1..10] of integer;

n,i,x:integer;

begin

writeln('Вводите 10 чисел по очереди: ');

x:= 1;

for i:=1 to 10 do

begin

 readln(a[i]);

 if ((a[i] mod 5) = 0) and (a[i] <> 0)

   then x *= a[i];

end;

writeln('Введите число от 1 до 10');

readln(n);

a[n] := x;

writeln(n,'-й элемент массива заменён на число ',x);

for i:=1 to 10 do

 writeln(a[i]);

end.

Язык PascalABC