1) Действия с информацией - это действия , связанные с хранением, обработкой и передачей информации 2) ЗРИТЕЛЬНАЯ - глаза ЗВУКОВАЯ - уши ВКУСОВАЯ - рот, язык ОБОНЯТЕЛЬНАЯ - нос ОСЯЗАТЕЛЬНАЯ - кожа 3) а) Линейка нужна для измерения расстояний. б) Транспортир нужен для измерения углов. в) Термометр нужен для измерения температуры. г) Барометр нужен для измерения давления. д) Компас нужен для определения направления сторон света (севера, юга, запада и востока) е) Телескоп нужен для изучения звездного нета ж) Микроскоп нужен для изучения клеток, микроорганизмов з) Шумомер нужен для измерения силы звуков (громкости) и) Гигрометр нужен для измерения влажности воздуха
должно по идее получиться "нет худо без добра.", но у меня получилось
"нет худо бrз одра." может ты в условии что-то напутала? вот программа которая переводит
function Pow(a, x:integer):integer;
var
rez, i:integer;
begin
rez := 1;
for i := 1 to x do
rez := rez * a;
Pow := rez;
end;
function BinToDec(a:string):integer;
var
i ,r:integer;
begin
r := 0;
for i := length(a) downto 1 do
r := r + StrToInt(a[i]) * Pow(2, length(a) - i);
BinToDec := r;
end;
var
s:array[1..100] of string;
i:integer;
begin
s[1] := '11001101';
s[2] := '11100101';
s[3] := '11110010';
s[4] := '00100000';
s[5] := '11110101';
s[6] := '11110011';
s[7] := '11100100';
s[8] := '11100000';
s[9] := '00100000';
s[10] := '11100001';
s[11] := '1110010';
s[12] := '11100111';
s[13] := '00100000';
s[14] := '11101110';
s[15] := '11100001';
s[16] := '11110000';
s[17] := '11100000';
s[18] := '00101110';
for i := 1 to 18 do
write(chr(BinToDec(s[i])));
end.