К какому выражению то? У меня нет ничего....
помогу со вторым,т.к на дискете памяти 1,44 мб,то понадобится преблизите 486 дискетов или 487 дискетов
Var a, b, c, v, s:integer;
begin
read(a, b, c);
writeln('V = ', a*b*c);
writeln('S = ', 2*(a*b+b*c+a*c));
end.
1. F= (x1 или не х2 и х1) или (х2 или х1 )
х1=0; х2=0 F= 0 + ¬0*0 + 0+0 = 0
x1=1 x2=1 F= 1 + ¬1*1 + 1 +1 = 1
x1=0 x2=1 F= 0+ ¬1*0 + 1+0 = 1
x1=1 x2=0 F= 1+ ¬0*1 + 0+1 = 1
--------------------------------------------------------------------------------------
2.
F= (x1 или х2) и не(х2 и х1 или х1)
х1=0 х2=0 F= (0 + 0 ) *¬ (0 *0 +0) = 0
х1=1 х2=1 F=( 1 + 1 ) * ¬( 1*1 +0 ) = 0
x1=0 x2=1 F= (0 + 1) * ¬(1*0 +0 ) = 1
x1=1 x2=0 F= (1 + 0 ) * ¬ (0*1 + 1 ) = 0
Program Primer;
var
i: Integer;
b:Boolean;
begin
Write('Введите число: ');
ReadLn(i);
if ((i<-99) and (i>-1000)) or ((i>99) and (i<1000))
then b:=true;
WriteLn(b);
end.