В ящике находятся 128 фруктов: 16 яблок, 16 груш(-и), 64 лимона и 32 ананаса. Какое количество информации содержится в сообщениях о том, что из ящика случайным образом были последовательно взяты с возвратом яблоко (I1), груша (I2), лимон (I3) и ананас (I4).

var a,b,c,d,e: real;

begin

  read(a,b,c,d);

  e: =(a+b+c+d)/4;

  writeln(e: 0: 4);

end.

program ms; uses crt; var a: array [1..10] of integer; l,k,s,i: longint; beginclrscr; writeln('введите 10 элементов массива'); for i: =1 to 10 dobegin    readln(a[i]);     if a[i]< 0 then l: =l+a[i];     if a[i]> 0 then k: =k+a[i]; end; s: =l*k; writeln(s); readkey; end.

var h,a: integer;

begin

  a: =1;

  repeat

      h: = h+3;

      a: =2*a;

      writeln('прошло часов - ',h,', амеб - ',a)

  until h> =30;

  readln;

end.

l*pi*((r+a)^2- (r)^2)*p

p - плотность