program summa;
var a,b,c,d,s:integer;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Введите третье число: ');
readln(c);
write('Введите четвертое число: ');
readln(d);
s:=a+b+c+d;
write('Сумма равна: ',s);
end.
Ответ:
ОЗУ и ПЗУ. Ответ находится за 2 секунды)
<span>Если в явном виде:
</span>
¬A&¬C = ¬A&(B v <span>¬B)&¬C = </span>¬A&B&¬C v ¬A&¬B&¬C
C&B = (A v ¬A)&B&C = A&B&C v <span>¬A&B&C
</span>¬A&B = ¬A&B&(C v <span>¬C)</span> = ¬A&B&C v ¬A&B&<span>¬C
Т.е. исходное выражение =</span>
<span>¬A&B&¬C v ¬A&¬B&<span>¬C v </span></span><span>A&B&C v <span>¬A&B&C v </span></span><span><span>¬A&B&C v ¬A&B&<span>¬C
</span></span>Если убрать повторы, получится</span>
A&B&C v <span>¬A&B&C v </span><span>¬A&B&¬C v </span><span>¬A&¬B&<span>¬C =
</span></span>= (A & ¬A)&B&C v <span>¬A&(B v </span><span>¬B)&</span><span>¬C =</span>
= B&C v <span>¬A&</span><span>¬C</span>
Var A:integer;
Begin
Write('A = ');Read(A);
if A>50 then A:=(A div 10)+(A mod 10)
else A:=(A div 10)*(A mod 10);
Write(A);
End.
N=4
K=640*480
N2=256
I=K*i
N=2(степени i)
i=2
I=640*480*2
I=61440
Попробуйте подстроить под ваши формулы и обозначения