а) Перебираются в цикле числа от 2 до 9(не включая 9) с шагом 2, т.е. каждое второе число. Если число делится на ноль без остатка, то есть оно четное, текущая итерация цикла заканчивается, и начинается следующая. То есть цикл пропускает четные числа, если число делится на 2 с остатком, т.е. оно нечетное, выводит его.
б) Оператор break останавливает цикл, т.е при нахождении четного числа он остановится.
Сначала найдем объем одного пароля. Для этого надо определить объем одного символа. Мощность алфавита равна 7-ми, то есть каждый символ в пароле принимает одно из семи значений, значит объем одного символа равен 3 битам, т.к. 2^3=8, а двумя битами (2^2=4) семь символов закодировать нельзя.
Длина пароля - 6, объем пароля равен 6*3 = 18 бит
Каждый пароль кодируется одинаковым и минимально возможно целым количеством байт, разделим 18 на 8 18:8 = 3 (нужно именно целое число, два байта - это 2*8=16 бит, у нас 18 бит, значит требуется 3 байта).
Кроме пароля на каждого пользователя выделяется 10 байт. То есть общий объем сведений на одного пользователя равен 10+3 = 13 байт.
Объем данных о 100 пользователей равен 13*100 = 1300 байт.
1. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] mod 2=0 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 2. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] > 9 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 3. var a: array[1..10] of integer; i: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 4. var a: array[1..10] of integer; i, r: Integer; Begin for i := 1 to 10 do read(a[i]); i := 1; while i < 10 do if a[i+1] < a[i] then begin r := a[i+1]; a[i+1] := a[i]; a[i] := r; i := 1; end else i := i + 1; for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 5. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 10 = 5 then kol := kol + 1; writeln(kol); End.
а) Перебираются в цикле числа от 2 до 9(не включая 9) с шагом 2, т.е. каждое второе число. Если число делится на ноль без остатка, то есть оно четное, текущая итерация цикла заканчивается, и начинается следующая. То есть цикл пропускает четные числа, если число делится на 2 с остатком, т.е. оно нечетное, выводит его.
б) Оператор break останавливает цикл, т.е при нахождении четного числа он остановится.