Училка

рассчитать количество символов в любых двух книгах(написать каких) количество символов перевести в биты,килобайты,байты.

! ​

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.

Если бы проводник был пришельцем, тут возможно 2 варианта:

1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду (то есть, не то, что сказал встреченый), то есть, что встреченный пришелец

2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-пришелец возвращается и сообщает гостю не правду, то есть, что встреченный пришелец.

Оба варианта нам не подходят, рассмотрим случаи, когда проводник абориген:

1) Они встретили пришельца, проводник спрашивает у пришельца, кто он. Тот, естественно врёт, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю  правду (то есть, то, что сказал встреченый), то есть, что встреченный абориген

2) Они встретили аборегена, проводник спрашивает у аборигена, кто он. Тот, естественно говорит правду, что он абориген. Тогда проводник-абориген возвращается и сообщает гостю  правду, то есть, что встреченный абориген.

Оба условия подходят, значит проводник - абориген!