Uses
Crt;
const
n = 10;
var
a: array[1..n] of integer;
i, min: integer;
begin
Randomize;
Writeln('Исходный массив');
min := 1000;
for i := 1 to n do
begin
a[i] := Random(100);
Write(a[i], ' ');
if min > a[i] then min := a[i]
end;
Writeln;
Writeln('Минимальный элемент равен ', min)
end.
<u>Тестовое решение:</u>
Исходный массив
32 35 39 60 35 66 44 50 14 77
Минимальный элемент равен 14
var
a, b, s, p: real;
begin
writeln('Введите длину прямоугольника:');
read(a);
writeln('Введите ширину прямоугольника:');
read(b);
s := a * b;
p := 2 * (a + b);
writeln('Площадь прямоугольника = ', p, #10, 'Периметр прямоугольника = ', s);
end.
Ответ:
4096 бит
Задача: Сколько килобайт поместится в 16384 бита?
(ответ: 16384 бита = 2 кбайта)
Объяснение:
1 байт = 8 бит или 2³ бит
Приставка "кило" в информатике означает множитель 2 в 10 степени.
Значит 1 кбайт = 2¹³ бит
Тогда 0,5 кбайта будет равно
½ × 2¹³ бит равно 2 в минус первой степени × 2¹³ = 2¹² бит. А это число 4096.
Бит - это минимальная единица измерения информации.
В 16-ричном коде это выглядит так:
C1 E8 F2 20 2D 20 FD F2 EE 20 EC E8 ED E8 EC E0
EB FC ED E0 FF 20 E5 E4 E8 ED E8 F6 E0 20 E8 E7
EC E5 F0 E5 ED E8 FF 20 E8 ED F4 EE F0 EC E0 F6
E8 E8 2E
Если применить к каждому байту функцию XOR 55 (исключающее или с числом 55),
то получится
94 BD A7 75 78 75 A8 A7 BB 75 B9 BD B8 BD B9 B5
BE A9 B8 B5 AA 75 B0 B1 BD B8 BD A3 B5 75 BD B2
B9 B0 A5 B0 B8 BD AA 75 BD B8 A1 BB A5 B9 B5 A3
BD BD 7B
Самое интересное в этом коде то, что применив к нему снова XOR 55, мы получим исходное сообщение.
Ну я не могу сказать правильно, но вот как я решила:
20*30=600 (к)
30*2=60 (к)
600+60=660(к)
Ответ : 660 мест в зале.
Я не знаю правильно ли нет.. Спроси у родителей, на всякий случай!