В ящике лежит 180 клубков шерсти, красных, белых и желтых. Сообщение о том, что достали желтый клубок, несет в себе 1 бит информацию белых клубков столько же, сколько и красных. Сколько красных клубков?

корректны высказывания:

1. программную систему можно рассматривать как множество классов, позволяющих создавать, получать доступ и изменять коллекции данных, называемых объектами

3. вызов объектом компонента – основная базисная операция оо программирования

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

138 байт,потому что 1024 бита=128 байт=> 10+128=138 как-то так.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.