ответ:
отдел +;
использует приём из "", вывод из "";
пер
n, сумма, сч, скор, макс: цел;
указ
сумма : = 0;
макс : = 0;
вывод.цепь("введите число автомобилей: ");
n : = приём.число();
если n < 1 и n > 30 то вывод.цепь("^ошибка.") иначе
вывод.цепь("^введите скорости: ^");
от сч : = 1 до n вып
скор : = приём.число();
если n < 1 и n > 300 то вывод.цепь("^ошибка."); стоп(0) кон;
увеличить(сумма, скор);
если скор > макс то макс : = скор кон;
вывод.цепь(" ")
кон
кон;
вывод.чвещ("^средняя скорость: %.1f.^", сумма / n, 0, 0, 0);
если макс > = 60 то вывод.цепь("yes") иначе вывод.цепь("no") кон
кон .
объяснение:
ответ:
один бит позволяет закодировать 2 значения (0 или 1).
используя два бита, можно закодировать 4 значения: 00, 01, 10, 11.
тремя битами кодируются 8 разных значений: 000, 001, 010, 011, 100, 101, 110,
111.
короче говоря:
1 бит кодирует –> 2 разных значения (21 = 2),
2 бита кодируют –> 4 разных значения (22 = 4),
3 бита кодируют –> 8 разных значений (23 = 8),
4 бита кодируют –> 16 разных значений (24 = 16),
5 бит кодируют –> 32 разных значения (25 = 32),
6 бит кодируют –> 64 разных значения (26 = 64),
7 бит кодируют –> 128 разных значения (27 = 128),
8 бит кодируют –> 256 разных значений (28 = 256),
9 бит кодируют –> 512 разных значений (29 = 512),
10 бит кодируют –> 1024 разных значений (210 = 1024).
var
A: array [1..12] of integer; //Одномерный массив из 12 целых чисел
i: integer;
begin
for i:= 1 to 12 do //Вводим элементы массива с клавиатуры
begin
writeln('Введите A[', i, ']');
readln(A[i]);
end;
write('Исходный массив: '); //Выводим исходный массив
for i:= 1 to 12 do
write(A[i], ' ');
writeln; //Перевод на новую строку
write('Измененный массив: ');
for i:= 1 to 12 do {Изменяем все положительные элементы на 5 и распечатываем полученный массив}
begin
if A[i] > 0 then A[i]:= 5;
write(A[i], ' ');
end;
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Если все правильно, отметь решение как лучшее)