F = !B & ( A + !(A&B) ) = !B & (A + !A + !B) = !B & (1+!B)= !B
{ т.к. !(A&B) = !A + !B }
F = !(A&B) + A&!B + A&B + B&C = !A + !B + A + B&C = !B + B&C
{ т.к. !(A&B) = !A + !B, A&!B + A&B = A&(!B+B) = A }
F = !(A&B + B&C) + C&!A = (A&B + B&C) & !(C&!A) =
= (A&B + B&C) & (!C+A) = B&(A+C)&(A+!C) = B & A
{ т.к. (A+C)&(A+!C) = AA + A!C + CA + C!C = A + A(!C+C)+0 = A + A = A }
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p.IsEven and (p > 100))
.Min
.Println
end.
Клавиши CTRL + PAGE UP перемещается к предыдущему размещению редактирования.Сочетание клавиш CTRL + PAGE DOWN перемещает к следующему изменению расположения.
Ответ:
program SubStrings;
uses
SysUtils, StrUtils;
var
s, w: AnsiString;
i, iw, iMax: Integer;
setN: Set Of Char;
begin
setN := ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '-'];
Write ('Введите строку: ');
ReadLn (s);
w := '';
iMax := 0;
WriteLn;
for i := 1 to Length (s) do begin
if w = '' then begin
if s [i] in setN then begin
w := w + s [i];
end
end else begin
if s [i] in setN then begin
w := w + s [i];
end else begin
iw := StrToInt (w);
Write (iw, ' '); // для вывода "очищенной" строки, нужно при проверке
if iw > iMax then
iMax := iw;
w := '';
end;
end;
end;
WriteLn;
WriteLn ('Максимальное число = ', iMax);
ReadLn;
end.
А) Панель инструментов, рабочее поле, шкала времени, панель свойства
б) Инструмент используется для заливки всего текста или определённой области
