У исполнителя Омега две команды, которым присвоены номера: 1. вычти 3; 2. раздели на b; (b — неизвестное натуральное число; b ≥ 2).Выполняя первую из них, Омега уменьшает число на экране на 3, а выполняя вторую, делит это число на b. Программа для исполнителя Омега — это последовательность номеров команд. Известно, что программа 11121 переводит число 81 в число 5. Определите значение b

👇

Ответ:

Liza111333

18.08.2020

Для этого запишем все команды в строчку , но после каждой будем ставить скобку .
81-3)-3)-3):b)-3)=5
(72:b)-3=5
72=8b
b=9
ответ 9.

4,7(36 оценок)

Открыть все ответы

Ответ:

Beknazarova02

18.08.2020

4) 0 1 2 3 4 5 4 3 2 1 0

Объяснение:

Заполнение массива:

для i от 0 до 10 выполнить a[i] = i

i = 0 a[0] = 0

i = 1 a[1] = 1

i = 2 a[2] = 2

Т.е. значение элемента массива равно индексу элемента.

Первоначальный массив выглядит так: 0 1 2 3 4 5 6 7 8 9 10

Изменение массива:

для i от 0 до 10 выполнить

Действия в цикле:

1) a[10-i] = a[i]

2) a[i] = a[10-i]

i = 0

Действия в цикле:

1) a[10-0] = a[0] (a[i] значение элемента берём из первоначального массива) a[10] = 0

2) a[0] = a[10-0] a[0] = a[10] a[0] = 0

i = 1

Действия в цикле:

1) a[10-1] = a[1] (a[i] значение элемента берём из первоначального массива) a[9] = 1

2) a[1] = a[10-1] a[1] = a[9] a[1] = 1

i = 2

Действия в цикле:

1) a[10-2] = a[2] (a[i] значение элемента берём из первоначального массива) a[8] = 2

2) a[2] = a[10-2] a[2] = a[8] a[2] = 2

i = 3

Действия в цикле:

1) a[10-3] = a[3] (a[i] значение элемента берём из первоначального массива) a[7] = 3

2) a[3] = a[10-3] a[3] = a[7] a[3] = 3

i = 4

Действия в цикле:

1) a[10-4] = a[4] (a[i] значение элемента берём из первоначального массива) a[6] = 4

2) a[4] = a[10-4] a[4] = a[6] a[4] = 4

i = 5

Действия в цикле:

1) a[10-5] = a[5] (a[i] значение элемента берём из первоначального массива) a[5] = 5

2) a[5] = a[10-5] a[5] = a[5] a[5] = 5

Промежуточный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0

i = 6

Действия в цикле:

1) a[10-6] = a[6] (a[i] значение элемента берём из промежуточного массива) a[4] = 4

2) a[6] = a[10-6] a[6] = a[4] a[6] = 4

i = 7

Действия в цикле:

1) a[10-7] = a[7] (a[i] значение элемента берём из промежуточного массива) a[3] = 3

2) a[7] = a[10-7] a[7] = a[3] a[7] = 3

i = 8

Действия в цикле:

1) a[10-8] = a[8] (a[i] значение элемента берём из промежуточного массива) a[2] = 2

2) a[8] = a[10-8] a[8] = a[2] a[8] = 2

i = 9

Действия в цикле:

1) a[10-9] = a[9] (a[i] значение элемента берём из промежуточного массива) a[1] = 1

2) a[9] = a[10-9] a[9] = a[1] a[9] = 1

i = 10

Действия в цикле:

1) a[10-10] = a[10] (a[i] значение элемента берём из промежуточного массива) a[0] = 0

2) a[10] = a[10-10] a[10] = a[0] a[10] = 0

Окончательный массив выглядит так: 0 1 2 3 4 5 4 3 2 1 0

4,5(62 оценок)

Ответ:

alenaafaunova

18.08.2020

1)
var
n:integer;
begin
readln(n);
if(n<0)then write(0)
else write(n+4);
end.

2)
var
a, b: integer;
begin
readln(a, b);
if(a = b) then
write(1)
else
write(0);
end.

3)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a >= 0) then s := s + 1;
if(b >= 0) then s := s + 1;
if(c >= 0) then s := s + 1;
write(s);
end.

4)
var
a, b, c, s: integer;
begin
s := 0;
readln(a, b, c);
if(a > 0) then s := s + a;
if(b > 0) then s := s + b;
if(c > 0) then s := s + c;
write(s);
end.
5)
var
a, b, c: integer;
begin
readln(a, b, c);
if (a < b) then swap(a, b);
if (a < c) then swap(a, c);
if (b < c) then swap(b, c);
write(a, ' ', b, ' ', c);
end.

6)
var n, k, s, i: integer;
begin
s := 0;
readln(n, k);
for i := 1 to n.ToString.Length do
if(strtoint(n.ToString[i]) > k) then s := s + strtoint(n.ToString[i]);
write(s);
end.

7)
var n, s, i: integer;
begin
s := 0;
readln(n);
for i := 1 to n do
s := s + i;
write(s);
end.

9)
var n, i: integer;
begin
readln(n);
for i := n downto 1 do
write(i);
end.

12
var
n, i: integer;
s: real;
begin
s := 0;
readln(n);
for i := n downto 1 do
s:=s+(0.1*i);
write(s);
end.

13)
var n, i: integer;
begin
readln(n);
for i := 1 to n do
write(sqr(i), ' ');
end.

14)
var
n, i, c: integer;
begin
i := 1;
c := 0;
readln(n);
while (c <> n) do
begin
if(i mod 3 = 0) then begin write(i, ' ');c := c + 1; end;
i := i + 1;
end;
end.

15)
var
n, i, a: integer;
c: real;
begin
i := 1;
c := 0;
readln(n);
for i := 1 to n do
begin
read(a);
c := c + a;
end;
write(c / n)
end.

16)
var
n, i, a: integer;
begin
i := 1;
while true do
begin
read(a);
if(a = 0) then break;
n := n + 1;
end;
write(n)
end.

4,4(4 оценок)

Это интересно:

Семейная-жизнь

18.02.2023

Как придумать крутое и запоминающееся прозвище для себя или других?...

Образование-и-коммуникации

26.01.2022

Как хорошо учиться: советы, методы и секреты...

Компьютеры-и-электроника

03.08.2020

Вредоносное ПО в Facebook: как избавиться от него...

Кулинария-и-гостеприимство