Var s,s1:string; a,b,code,i:integer; z:char; begin writeln('Введите выражение:'); readln(s); s1:=''; i:=1; while not (s[i] in ['+','-','*','/']) do begin s1:=s1+s[i]; i:=i+1; end; val(s1,a,code); z:=s[i]; s1:=''; i:=i+1; while s[i] <> '=' do begin s1:=s1+s[i]; i:=i+1; end; val(s1,b,code); case z of '+' : writeln(s,a+b); '-' : writeln(s,a-b); '*' : writeln(s,a*b); '/' : writeln(s,a/b); end; end.
Var x,y,v:real; b:string; begin writeln('Vvedite znak virajeniya (+, -, *, /)'); readln(b); writeln('Vvedite pervoe chislo'); readln(x); writeln('Vvedite vtoroe chislo'); readln(y); if b = '+' then v:=x+y; if b = '-' then v:=x-y; if b = '*' then v:=x*y; if b = '/' then v:=x/y; writeln(x, ' ', b, ' ', y, ' = ', v); end.
Обозначения: A=x∈A B=x∈{2;4;...;12} C=x∈{3;6;...;15} ------------------------------------------ B→((C*¬A)→¬B)=1 ¬B+¬(C*¬A)+¬B=1 ¬B+¬C+A=1 A+( ¬B+¬C )=1 (тк A+¬A=1, то ¬A=¬B+¬C ) ¬A=¬B+¬C ¬¬A=¬(¬B+¬C) A=B*C ( A - состоит из общих элементов В и С) А={6;12} 6+12=18 ответ 18