В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Артем620
Артем620
27.04.2021 15:03 •  Информатика

1. Раскрась рисунок по образцу. Напиши о предмете, который является источником информации.
У р
k,
4.
1.
No ИстОЧНИК информации
Какую информацию мы
Воспринимаем?​


1. Раскрась рисунок по образцу. Напиши о предмете, который является источником информации.У рk,4.1.N

Показать ответ
Ответ:
RCloke
RCloke
17.04.2020 01:23

Очень нечётко сформулировано!

Объём информации о чём? Если о количестве сделанных ходов, то это 15=Fh, то есть достаточно 4бит(полубайта), но, подозреваю, что объём совсем не этой информации требуется найти. Уточни, какой.

Иначе "пойди туда, не знаю, куда; принеси то, не знаю, что". Не в сказке ж живём.

 

Да, ещё раз почитал, может речь идет о последовательности ходов и её объёме?

В этом случае всё просто - объём равен 15*n, где n-количество байт на один ход.

Ячейку можно кодировать двумя разными

1. последовательно их перенумеровав. В этом случае макс. номер будет 24(если нумеровать с 0). Так как     2^4  <24< 2^5, то для такой нумерации потребуется 5 бит.

2. Указавая строку,столбец, каждая из которых находится в интервале (1,5), ну или (0,4)

на что потребуется 3 бита, а на пару 6 бит.

Таким образом экономней.

И запись 15 ходов можно поместить в 15*5=75бит= 10байт 

 

Или всё же не это имелось в виду?

0,0(0 оценок)
Ответ:
Kejiro
Kejiro
28.05.2023 07:50

1) 

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

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

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

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота