должно по идее получиться "нет худо без добра.", но у меня получилось
"нет худо б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.
В объяснении
Объяснение:
1 Вариант
1. 1)ppt
2. 1) my.doc, bell.txt, song.docx;
3. 3)мышь
4. 1) красного, синего, зеленого
5.Объем сообщения определяется по формуле:
V=l*r,
где l-длина сообщения, r-разрешение.
l=50, т.к.всего в предложении 50 символов (пробелы и знаки препинания являются символами).
r=1 байт=8 бит.
Объем сообщения равен:
V=50*8=400 бит.
6. не понятно, что делать, задания не видно как-то
7.InternetExplorer= 73 110 116 101 114 110 101 116 69 120 112 108 111 114 101 114
8. Нет рисунка собственно
9. 64 бита < 16 байт
10 Кбайт < 10600 байт
10 байт = 80 бит
10. Нет схемы
var
A: array [1..15] of Integer;
i, Amin, Ai: Integer;
begin
WriteLn ('Массив:');
Randomize;
for i := Low (A) to High (A) do begin
A [i] := Random (100); // заполнение массива случайными значениями
Write (A [i], ' '); // вывод для просмотра
end;
Amin := A [Low (A)]; // минимальное значение возьмем из первого элемента массива
Ai := Low (A); // индекс минимального значения = 1
for i := Low (A) + 1 to High (A) do begin // цикл со второго элемента массива до последнего
if A [i] < Amin then begin // если найден элемент меньше минимального
Amin := A [i]; // изменяем его значение
Ai := i; // и сохраняем номер
end;
end;
Writeln;
Writeln ('Минимальный элемент № ', Ai, ' равный ', A [Ai]); // выводим минимальный элемент на просмотр
A [Ai] := A [Low (A)] + A [High (A)]; // изменяем на сумму первого и последнего
Writeln ('Заменен на значение = ', A [Ai]); // и его новое значение на просмотр
end.