44. выразите объём информации в различных единицах, заполняя таблицу: бит байт кбайт 1 1536 16384 2560 2(15сверху) 2(3сверху)

бит        байт    кбайт

8192      1024      1

12288  1536      1.5

16384  2048      2

2¹⁵          2¹²         4

2¹⁶          2¹³           2³

Type num=1..999; var x: num; k,y: integer; begin   write('x=');   readln(x);   y: =x;   k: =0;   while y< > 0 do     begin     y: =y div 10;     k: =k+1;     end;   if (x mod 2)=0 then     write('четное ')   else     write('нечетное ');   if k=1 then write('однозначное ')   else     if k=2 then write ('двухзначное ')     else       write('трехзначное ');   writeln('число'); end.

1) var f: text; a: array[1..7] of real; i,k,c,x: integer; s: string; begin   for i: =1 to 7 do     begin     readln(x);     a[i]: =x;     end;   assign(f,'file.txt');   rewrite(f);   for i: =1 to 7 do     begin     str(a[i],s);     writeln(f,s);     end;   close(f);   reset(f);   k: =0;   while not eof(f) do     begin     readln(f,s);     val(s,x,c);     if x< 0 then k: =k+1;     end;   close(f);   if k< > 0 then writeln('в массиве ',k,' отрицательных элемента(ов)');   else writeln('в массиве нет отрицательных элементов');   erase(f); end. 2) var a,b,c,d: integer; function max(a,b: integer): integer; begin   if a> b then max: =a   else max: =b; end; begin   readln(a,b,c,d);   a: =(max(a,b));     b: =(max(c,d));   writeln('max=',max(a,b)); end.