Какое количество информации несет в себе сообщение о том, что нужный вам файл находится на одном из восьми дисков? 30

log2(8) = 3 бита информации.

40-1=40 ніг буде без капітана

15-1=14 голів буде без капітана

40/2=20

20-14=6 котів було на кораблі

program first;

var z,d,k: integer;

begin

writeln('input z,d,k');

readln(z,d,k);

if (d> =z) then

d: =d-z

k: =k+1

writeln(d,'    ',k);

readln;

end.