Вкухонном шкафу 43 чистые тарелки. в то время когда чистую тарелку достают из шкафа специальное устройство регистрирует отсутствие каждой тарелки, записывая номер тарелки с использованием минимально возможного количества бит, одинакового для каждой тарелки. из шкафа достали 40 тарелок. какой объём памяти будет использован устройством (в байтах)?

ответ:

файл, правка, вид, вставка, формат, сервис, таблица, окно, справка.

var

  x: array[1..15]of integer;

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

вот на c:

#include < stdio.h> int main(void){  int i;   for(i = 50; i > = -50; i -= 10)  {    printf("%d\n", i);     }  printf("\n");   system("pause");   return 0; }