Информатика: Выполните действия в двоичной системе счисления

Выполните действия в двоичной системе счисления

👇

Ответ:

dasausakova526

18.10.2020

1 это 1
2=10
3=11
4=100
5=101
6=110
7=111
8=1000
9=1001
10=1010
11=1011
12=1100
13=1101
14=1110
15=1111
16=10000
17=10001
18=10010
19=10011
20=10100
21=10101
22=10110
23=10111
24=11000
и так далее

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

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

Ответ:

ulianaazet66

18.10.2020

Если дальше завершить программу, то получим это:
program HelloWorld;
function ez(a: longint): boolean; var c: integer; begin ez := a >= 2; for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then ez := false end; var i, k: integer; num: array [1 .. 100] of integer;
begin for i := 0 to 99 do num[i+1] := i + 1; k := 0; i := 1; while k < 7 do begin if ez(num[i]) = true then k := k + 1; i := i + 2; end; write(num[i-2]); end.
ответ 19

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

Ответ:

holoupail

18.10.2020

Так с наскоку увидеть перестановку не получилось, и для улучшения зрения сделана программка
Возможные перестановки хранятся в массиве Xchng.
В программе сделана проверка на две перестановки, что, по большому счёту избыточно, т.к. кратчайшее решение содержит всего одну перестановку. но дополнить программу проверками на 3 и 4 перестановку можно.

program pr_1;
type Xchng_type = record
len, first, second: integer;
end;
const Xchng: array [1..50] of Xchng_type =
(
(len: 4; first: 1; second: 5),
(len: 3; first: 1; second: 4),
(len: 3; first: 1; second: 5),
(len: 3; first: 1; second: 6),
(len: 3; first: 2; second: 5),
(len: 3; first: 2; second: 6),
(len: 3; first: 3; second: 6),
(len: 2; first: 1; second: 3),
(len: 2; first: 1; second: 4),
(len: 2; first: 1; second: 5),
(len: 2; first: 1; second: 6),
(len: 2; first: 1; second: 7),
(len: 2; first: 2; second: 4),
(len: 2; first: 2; second: 5),
(len: 2; first: 2; second: 6),
(len: 2; first: 2; second: 7),
(len: 2; first: 3; second: 5),
(len: 2; first: 3; second: 6),
(len: 2; first: 3; second: 7),
(len: 2; first: 4; second: 6),
(len: 2; first: 4; second: 7),
(len: 2; first: 5; second: 7),
(len: 1; first: 1; second: 2),
(len: 1; first: 1; second: 3),
(len: 1; first: 1; second: 4),
(len: 1; first: 1; second: 5),
(len: 1; first: 1; second: 6),
(len: 1; first: 1; second: 7),
(len: 1; first: 1; second: 8),
(len: 1; first: 2; second: 3),
(len: 1; first: 2; second: 4),
(len: 1; first: 2; second: 5),
(len: 1; first: 2; second: 6),
(len: 1; first: 2; second: 7),
(len: 1; first: 2; second: 8),
(len: 1; first: 3; second: 4),
(len: 1; first: 3; second: 5),
(len: 1; first: 3; second: 6),
(len: 1; first: 3; second: 7),
(len: 1; first: 3; second: 8),
(len: 1; first: 4; second: 5),
(len: 1; first: 4; second: 6),
(len: 1; first: 4; second: 7),
(len: 1; first: 4; second: 8),
(len: 1; first: 5; second: 6),
(len: 1; first: 5; second: 7),
(len: 1; first: 5; second: 8),
(len: 1; first: 6; second: 7),
(len: 1; first: 6; second: 8),
(len: 1; first: 7; second: 8)
);
var
s, s_target, s1, s2, s3, s4, s5, snew1, snew2, snew3, snew4: string;
p1,p2,p3,p4: integer;
begin
s := ':)):):):';
s_target := ':):):):)';
//s:='abcdefgh';
for p1 := 1 to 50 do
begin
snew1 := concat(
Copy(s, 1, Xchng[p1].first - 1), Copy(s, Xchng[p1].second, Xchng[p1].len),
Copy(s, Xchng[p1].first + Xchng[p1].len, Xchng[p1].second - Xchng[p1].len - Xchng[p1].first),
Copy(s, Xchng[p1].first, Xchng[p1].len),
Copy(s, Xchng[p1].second + Xchng[p1].len, 9 - Xchng[p1].second - Xchng[p1].len));
if(CompareStr(s_target, snew1) = 0) then writeln('число перестановок = 1, номер перестановки #1=', p1);
for p2 := 1 to 50 do
begin
snew2 := concat(
Copy(snew1, 1, Xchng[p1].first - 1),
Copy(snew1, Xchng[p2].second, Xchng[p2].len),
Copy(snew1, Xchng[p2].first + Xchng[p2].len, Xchng[p2].second - Xchng[p2].len - Xchng[p2].first),
Copy(snew1, Xchng[p2].first, Xchng[p2].len),
Copy(snew1, Xchng[p2].second + Xchng[p2].len, 9 - Xchng[p2].second - Xchng[p2].len));
if(CompareStr(s_target, snew2) = 0) then writeln('число перестановок = 2, номера перестановок #1=', p1,', #2=', p2);
end;
end;
end.

И вот ответ:
число перестановок = 1, номер перестановки #1=7 длина блока 3 начало первого блока3 начало второго блока6

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

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

22.07.2022

Боязнь высоты: как преодолеть её и наслаждаться жизнью...

Хобби-и-рукоделие

29.07.2020

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

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

05.06.2023

Узнайте, как скачать ролики с YouTube, используя Chrome...

Здоровье

30.09.2022