var a:array of integer;
N,i,k:integer;
function f(a:integer):Boolean;
begin
if (a mod 2=0) then f:=True else
f:=False;
end;
BEGIN
k:=0;
writeln('Введите количество элементов массива');
readln(N);
SetLength(A,N);
writeln('Введите массив');
for i:=0 to N-1 do begin
read(a[i]);
if (f(a[i])=True) then k:=k+1;
end;
writeln('Количество чётных элементов массива = ',k);
end.
Вводите с клавиатуры кол-во элементов массива, а затем сам массив.
1) Видим A "И" !A что всегда даст Ложь, выражение всегда = ЛОЖЬ при любых аргументах
2) A & B & C | A & not(B & C)
А за скобку
A & (B & C | not(B & C) )
Все что справа от A всегда истино, можно опускать
Ответ: A
Фамилия
Имя
Город проживания
Регистрационный номер авто
Номер дома!
1) 16 = 2⁴
2) 4 * 1024 = 4096 бит в секторе
3) 9 * 4096 = 36864 бит в дорожке
4) 180 * 8 * 1024 = 1474560 бит на всём диске
5) 1474560 / 36864 = 40 дорожек