?кбайт = ? байт = 12288 бит ​

1,5 Кбайт = 1536 байт = 12288 бит

1) 12288 / 8 = 1536 (байт)

2) 1536 / 1024 = 1,5 (Кбайт)

Объяснение:

1 байт = 8 бит

1 Кбайт = 1024 байт

1,5кбайт=1536байт=12288

1)  program n1;   var n,i: integer;   t: array[1..100] of real;   a,b: real;   begin  readln(n);   readln(a);   readln(b);   for i: =1 to n do  begin  t[i]: =(b-a)/n;   write(t[i],'   ');   end;   end.2)  program n1;   var a: array[1..100] of integer;   n,i: integer;   k: real;   begin  read(n);   k: =0;   for i: =1 to n do  read(a[i]);   for i: =1 to n do  if a[i] mod 2 < > 0 then  k: =k+1;   writeln;   writeln('кол-во нечет. чисел равно ',k,'');   end.6)  program n1;   var a: array[1..100] of real;   i,n: integer;   s,sr: real;   begin  read(n);   for i: =1 to n do  read(a[i]);   s: =0;   sr: =0;   for i: =1 to n do  s: =s+a[i];   sr: =s/n;   writeln('сред. арифметическое равно ',sr,'');   end.7)    program n1;   var a: array[1..100] of real;   i,n: integer;   min,max: real;   begin  read(n);   for i: =1 to n do read(a[i]);   min: =a[1];   for i: =2 to n do  if a[i]< min then  min: =a[i];   max: =a[1];   for i: =2 to n do  if a[i]> max then  max: =a[i];   writeln('максимальный элемент равен ',max,'');   writeln('минимальный элемент равен ',min,'');   end.8)  program n1;   var a: array[1..100] of real;   i,n: integer;   min,max,nom1,nom2: real;   begin  read(n);   for i: =1 to n do  read(a[i]);   min: =a[1];   nom1: =1;   for i: =2 to n do  if a[i]< min then  begin  min: =a[i];   nom1: =i;   end;   max: =a[1];   nom2: =1;   for i: =2 to n do  if a[i]> max then  begin  max: =a[i];   nom2: =i;   end;   writeln('максимальный элемент равен ',max,', его номер ',nom2,'');   writeln('минимальный элемент равен ',min,', его номер ',nom1,'');   end. 9)  program n1;   var a: array[1..100] of real;   i,n: integer;   min,max,s,sr: real;   begin  read(n);   randomize;   for i: =1 to n do  begin  a[i]: =random(100)+1;   write(a[i],'   ');   end;   writeln;   s: =0;   sr: =0;   for i: =1 to n do  s: =s+a[i];   sr: =s/n;   writeln('ср. арифм. = ',sr,'');   min: =a[1];   for i: =2 to n do  if a[i]< min then  min: =a[i];   max: =a[1];   for i: =2 to n do  if a[i]> max then  max: =a[i];   writeln('максимальный элемент равен ',max,'');   writeln('минимальный элемент равен ',min,'');   end.