1. 16=2 степени i
2 в степени 4=2 в степени i
i=4
значит, 1 буква несет 4 бита информации
ответ: 4 * 16 = 64 бита
Вообще цикл выполняется очень много раз.
Ответы
а)12
б)7
//PascalABC.NET версия 3.4.0.1677 от 17.06.18
//Если программа не запускается, то обновите версию
const
m = 99;
var
n,i, j: integer;
A,: Array[1..m] of integer;
begin
Randomize;
write('n = ');
readln(n);
for i := 1 to n do
begin
repeat
j := Random(n) + 1
until A[j] = 0;
A[j] := i;
end;
for i := 1 to n do
write(A[i]:3);
writeln;
end.
Программа без использования массива:
var
i, n, a, max, max2: integer;
begin
write('Введите количество чисел: ');
read(n);
write('Введите числа: ');
for i := 1 to n do
begin
read(a);
if a > max then
begin
max2 := max;
max := a;
end;
end;
writeln('Два наибольших значения - ', max2, ' и ', max);
end.
Пример работы программы:
Введите количество чисел: 6
Введите числа: 12 15 5 7 23 7
Два наибольших значения - 15 и 23
Ответ:
1
Объяснение:
связь между сдачей математики и информатики