Автомат обрабатывает натуральное число N по следующему алгоритму: 1. Строится двоичная запись числа N без ведущих нулей.
2. Если в полученной записи единиц больше, чем нулей, то справа приписывается единица. Если нулей больше или нулей и единиц поровну, справа приписывается ноль.
3. Полученное число переводится в десятичную запись и выводится на экран.
Какое наименьшее число, превышающее 40, может получиться в результате работы автомата?

👇

Ответ:

5757azfffgghhhj

18.03.2022

Объяснение:

Пробуем 41: 41=32+8+1=101001_2 . Если оно получилось в результате работы автомата, то это могло случиться так: 10100 + 1 (не подходит, в числе меньше единиц, чем нулей).

Пробуем 42: 42=101001_2+1=101010_2 . 101010 - это 10101 + 0 (не подходит, единиц больше, чем нулей).

Пробуем 43: 43=101010_2+1=101011_2 . 101011 - это 10101 + 1 (в 10101 единиц больше, чем нулей). Подходит!

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

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

Ответ:

SherlockAlya

18.03.2022

Правила организации личной информации в сети Интернет

старайтесь не заполнять анкеты данных в неизвестных чатах, социальных сетях,

не оставляйте встреченным в Интернете людям свой номер телефона, домашний адрес,

не отправляйте неизвестным людям свои фотографии,

общайтесь в программах Skype и им подобным только с друзьями,

не открывайте прикрепленные к письму файлы, полученные от незнакомых людей,

не разглашайте информацию о своем пароле

Правила безопасности в сети Интернет

не договаривайтесь о встрече с незнакомцами,

не отвечайте на недоброжелательные сообщения,

выходите из чата, если чье-то сообщение вызывает беспокойство,

будьте внимательны при загрузке бесплатных программ на компьютер,

если вы получили оскорбляющее сообщение, сообщение о нем родителям,

не поддавайтесь на заманчивые предложения,

не посещайте сайты для взрослых

Правила сетевого этикета

старайтесь выглядеть достойно в глазах собеседников,

пишите грамотно,

человек, с которым вы общаетесь, может быть не один,

сдерживайте страсти,

будьте терпимы к недостаткам окружающих

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

Ответ:

allonso

18.03.2022

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
nn=100;
var
i,j,n,t:integer;
a:array[1..nn] of integer;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
Writeln;
for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
for i:=1 to n do Write(a[i],' ');
Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2

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

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

Образование

06.01.2021

Клюква стоит 250 рублей за кг, а малина 200....

Образование

16.03.2023

Решить систему уравнений x2 + y2 + xy = 3...

Образование

05.08.2020

Решить систему уравнений x2 + xy +y2 = 13...

Образование