while not Eof(FileText) do begin case Counter of 1: Readln(FileText, Names[1]); 2: Readln(FileText, Numbers[1]); 4: Readln(FileText, Names[2]); 5: Readln(FileText, Numbers[2]); 7: Readln(FileText, Names[3]); 8: Readln(FileText, Numbers[3]); end;
counter := counter + 1; end;
close(FileText);
while CFE = false do begin Bol := false;
Write('Введите Фамилию и инициалы сотрудника (0 - выход): '); Readln(worker);
if (worker = '0') then CFE := true
else begin for i := 1 to 3 do begin if (worker = Names[i]) then begin Writeln('Телефон: ', Numbers[i]); Writeln(); Bol := true; end; end;
if (Bol = false) then begin Writeln(); Writeln('Сотрудник не обнаружен!'); Writeln(); end; end; end;
Воспользуемся законом де Моргана: НЕ(А ИЛИ B) = НЕ(A) И НЕ(B) = (НЕ(сумма цифр нечетная) И НЕ(число четное)). Из этого следует, что обе скобки отрицаются, то есть значения внутри них становятся противоположными: (Сумма цифр четная) И (число нечетное). И - означает, что условие внутри обоих скобок должно быть истинно, то есть должно выполняться.
ответ: 8.589.934.592 бит.