Var s:string;
begin
write('Введите слово более 6 букв');Read(s);
write('символ предыдущий пятому ',s[4], ' символ следующий за пятым ', s[6]);<span>end.</span>
<span><span>Program f;
</span><span>uses crt;
</span><span>var a:array [1..5] of integer;
</span><span> b,i,h:integer;
</span>begin
<span>clrscr;
</span><span>for i:=1 to 5 do</span><span> begin</span><span> write('vvod ',i,' el mas');
</span><span> readln(a[i]);</span><span>
end;
</span><span>for h:=1 to 25 do
</span><span>for i:=1 to 4 do
</span><span>if (A[i]>A[i+1]) then</span><span>
begin
</span><span> b:=A[i+1];</span><span>
A[i+1]:=A[i];</span><span>
A[i]:=b;
</span><span>end;
</span><span>for i:=1 to 5 do</span><span>write('vivod mas',a[i],' ');
</span><span>readkey;
</span><span>end<span>.</span></span></span>
AB+A!B=A(B+!B)=A
!(X+Y)(X!Y)=(!X!Y)(X!Y)= 0
!XY+!(X+Y)+X = !XY+!X!Y+X = !X(Y+!Y)+X = !X+X = 1
(X+Y)(!X+Y)(!X+!Y) = F
(X+Y)(!X+Y) = X!X+XY+Y!X+YY = 0+XY+Y(!X+1) = XY+Y= Y(X+1) = Y
Y(!X+!Y)=Y!X+Y!Y=Y!X
(X+Y)(!X+Y)(!X+!Y) = Y!X
5 пример особо не упростишь
!(XY+!Z)=!(XY)Z=(!X+!Y)Z
128000/(6*60)=<span>
355,5556бит/8/1024=</span><span>
<span>0,043403 Кбайта</span></span>
1 - Д
2 - В
3 - Б
4 - Г
5 - А