Упростите выражения неА ˄ (В ˅ А) ˅ неА
(неА+B).А+В
(Х ˅ 1) ˄ ¬ Y ˄ ¬Z ˄ (V ˅ 1) ˄ Z
Х ˅ Y˅ Z ˅ (¬ U˄ 0) ˅ (V ˄ 0) ˅ ¬ Х
Х ˄ ( ¬ Y ˅ 1) ˄ ¬X ˄ ¬ U ˄ V
¬Х ˅ ¬Y˅ (Z˄ ¬Z) ˅ ( X ˄ 0) ˅ (¬Y ˅ Y)

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.

 

ответ разместил:

паскаль

откомпилирован в: pascal abc

 

program z1; uses crt; var    s: string;     c: char;     i: integer; begin        write('  vvedite strocy:   ');         readln(s);                 writeln();                 write(' vvedite sivol dl poiska:   ');         readln(c);                 writeln();         for i : = 1 to length(s) do         if s[i] = c then //        begin                  writeln(' simvol prinadlech stroce = ', s);                   break;         end;         if s[i] < > c then writeln(' simvola net v stroke = ', s); end.

ответ разместил:

не знаю паскаль, знаю c++ : )

{  

int a, b;

//вводим значения в a и в b (в футах)

cin > > a > > b;

b = b*45;

if (a> b) cout < < "в км больше";

else cout > > "в футах больше";  

}  

 

{  

// тут важен дробный тип  

dooble a, b;

//вводим значения в a и в b (м/c)

cin > > a > > b;

a = a: 3.6;

if (a> b) cout < < "в км/ч больше";

else cout > > "в м/с больше";  

}

 

ну а дальше надо уже все по формулам смотреть.  

{

doouble a,b;  

//вводим значения в a и в b стороны

cin > > a > > b;

a=a*a*3.14;

b=b*b;

if(a> b) cout < < "площадь круга больше";

else cout < < "площадь квадрата больше";  

}  

 

4. не знаю как такое делать, что значит уместиться ли круг в квадрате? уместится если радиус его меньше чем половина стороны.

 

5.

{

 doouble a,b,c,d;

 cin > > a > > b > > c > > d; // вводим объем и массу;

 a = a/b;

c = c/d;

if(a> c) cout < < "тело 1 имеет плотность больше чем тело 2";

else cout < < "тело 2 имеет большую плотность";  

}  

 

6. не знаю. но тоже как-то через форумулы.  

ответ разместил: Гость

бор (сосновый бор к примеру)

бордюр

набор