Var
H2SO4:string;
B:integer;
Begin
B:=0;
WriteLn('Введите три формулы кислот');
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=1;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=2;
ReadLn(H2SO4);
if H2SO4 = 'H2SO4' then B:=3;
if B = 0 then WriteLn('Формулы серной кислоты среди них нет')
else WriteLn('Формула серной кислоты: №',B)
End.
1) (1∨1)∨(1∨0) = 1 ∨ 1 = 1<span>;
2)(((1∨0)∨1)∨1) = </span>((1 ∨ 1) ∨ 1) = (1 ∨ 1) = 1<span>;
3) (0&1)&1 = 0 & 1 = 0;
4) 1&(1&1)&1 = 1 & 1 & 1 = 1 & 1 = 1;
5) ((1∨0)&(1&1))&(0∨1) = (1 </span>& 1)&(0 ∨ 1) = 1 & 1 = 1; <span>
6) ((1&1)∨0)&(0∨1) = </span>(1 ∨ 0)&(0 ∨ 1) = 1 & 1 = 1;<span>
7) ((0&0)∨0)&(1∨1) = </span>(0 ∨ 0)&(1 ∨ 1) = 0 & 1 = 0;<span>
8) (A∨1)∨(B∨0) = </span>1 ∨ B = 1;<span>
9) ((1&A)∨(B&0))∨1 = </span>(A ∨ 0) ∨ 1 = A ∨ 1 = 1;<span>
10) 1∨A&0 = </span>1 ∨ 0 = 1
Меню "Пуск" или Главное меню<span> системы Windows</span>
Function pr(a, b:integer):integer; var tmp:integer;begin if b = 1 then pr := a else begin tmp := pr(a, b shr 1); inc(tmp, tmp); if b and 1 = 1 then inc(tmp, a); pr := tmp; end;<span>end; рекурсивная ф-ия, алгоритм работает гораздо быстрее лобового складывания (хоть с большими числами). Процедура пишется аналогично. (если не допрешь - скажи, сделаю)</span>