Статья, набранная на компьютере, содержит 16 страниц, на каждой странице 32 строки, в каждой строке 40 символов. определите информационный объём статьи в кодировке windows-1251, в которой каждый символ кодируется 8 битами. 1) 160 байт 2) 16 кбайт 3) 320 байт 4) 20 кбайт

1) 16*32*40=20480
2)1024/8=128
3)20480/128=160 байт
ответ: 1) 160 байт

program dlb;

var

 i,T,s,k : integer;

 begin

   i := 1;

   writeln('Введите число T');

   readln(T);

   k := 0;

   while i <>0 do

   begin

     readln(i);

     if i > T then

       s := s +i;

     if i < 0 then

       k := k + 1;

   end;

write(s,',', k);

 end.

program pd;

var

 n,min,s,i,x: integer;

 begin

   min:= 10000000;

   writeln('Введите число N');

   readln(n);

   for i := 1 to N do

     begin

     readln(x);

   if x < min then

     min := x;

   if x > 0 then

     s := s + x

   end;  

if s > 0 then

writeln(min,',', s)

else

 begin

 write('Положительных чисел нет в последовательности');

 write(min);

 end;  

 end.

Class ArrayEven{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
  while((eArray[eArray.length-1] = in.nextLong())!=-1){
   long nArray[] = new long[eArray.length+1];
   for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
   eArray = nArray;
  } eArrayCell:
  for(int cCell = 0; cCell<eArray.length-1; cCell++){
   if(eArray[cCell]%2==0)continue;
   else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
   if(eArray[eCell]%2==0){
    eArray[eArray.length-1]=eArray[cCell];
    eArray[cCell]=eArray[eCell];
    eArray[eCell]=eArray[eArray.length-1];
    continue eArrayCell;
   }
   break;
  }
  for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
 }
}