Какие из этих логических выражений истинны независимо от значения переменной а? здесь хоr обозначает "исключающее или"
а)a+1
б) a*1
в) a xor 1
г)a xor a
д) 1 xor (0*a)

сначала взять кирпич-взять цемент- налить уемент- положить на цемент кирпич. и т.к

1)

var 

a,b,c: real;

begin

readln(a,b);

c: =180-a-b;

if (a> 90) or (b> 90) or (c> 90) then writeln('тупоугольный')

else

if  (a=90) or (b=90) or (c=90) then writeln('прямоугольный')

else  writeln('остроугольный');

end.

2)

var

v: real;

begin

readln(v);

if v< 7.8 then writeln ('ракета упадет на землю');

if v=7.8 then  writeln ('ракета станет спутником земли');

if (v> 7.8) and (v< =16.4) then  writeln ('ракета останется в пределах солнечной системы'); if (v> 16.4) then  writeln ('ракета покинет пределы солнечной системы');  

end.

1)237=010011111-переводим число в двоичную сс

2)010011111+1101001=100001000 ответ в двоичной

1) var a: array [1..2] of real;

          b: array [1..20] of real;

          i: integer;

          c: boolean;

  begin

  c: =false;

  readln(a[1],a[2]);

  for i: =1 to 20 do begin

                            readln(b[i]);

                            if (b[i]=a[1]) then begin writeln('a[1]=b[',i,']=',b[i]); c: =true; end;

                            if (b[i]=a[2]) then begin writeln('a[2]=b[',i,']=',b[i]); c: =true; end;

                            end;

  if c=false then writeln('совпадений не найдено');

end.

2) var a: array[1..10] of real;

    npol,notr,i: integer;

    begin

    npol: =0;

    notr: =0;

    for i: =1 to 10 do begin

                              readln(a[i]);

                              if a[i]> 0 then npol: =npol+1;

                              if a[i]< 0 then notr: =notr+1;

                              end;

    writeln('количество положительных значений: ',npol,', количество отрицательных значений: ',notr);

end.