Нужно решить маленькую работу по информатике.. 1) сколько кбайт информации содержит сообщение объёмом 2 в 25 степени бит (ответ - одним числом) 2) сколько бит информации содержит сообщение объёмом 16 гб (ответ - степень 2-ух) 3) сколько гбит информации содержит сообщение объёмом 2 в 39 степени байт (ответ - степень 2-ух) 4) сколько байт информации содержит сообщение объёмом 2 мбит (ответ - степень 2-ух) 5) сколько мб информации содержит сообщение объёмом 0.25 гбайт (ответ - одним числом)

В1 мб 2^10 килобайт 1 кб = 2^10 байт1 байт = 2^3 бит 1)  2²⁵бит = 2²¹ байт = 2¹¹ кбайт = 2048 кбит 2) 16 гб = 2⁴гб = 2¹⁴мб = 2²⁴кб = 2³⁴байт = 2³⁷ бит 3) 2³⁹байт = 2⁴²бит=2³²кбит = 2²²мбит=2¹²гбит 4) 2мбит = 2¹¹кбит = 2²¹бит = 2¹⁸байт 5) 0,25 гб = 256 мб

//ночной отвратный код //pascalabc.net 3.2 сборка 1318 var   f,g: text;   mins,i,currents,minscount: integer;   minswords: array of string;   buf1,buf2: char;   wordflag: boolean;   s: string; begin mins: =integer.maxvalue; assign(f,'input.txt'); reset(f); read(f,buf1); if not(eof(f)) then read(f,buf2); if ((buf1=' ') or (buf1=chr(10)) or (buf1=chr( and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr( then   wordflag: =false; if (buf1< > ' ') and ((buf2=' ') or (buf2=chr(10)) or (buf2=chr( then   begin     s: =buf1;     wordflag: =false;   end; if (buf1< > ' ') and (buf2< > ' ') then   begin     s: =buf1+buf2;     currents: =0;     for i: =1 to length(s) do       if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then           inc(currents);     wordflag: =true;   end; while not(eof(f)) do   begin     if ((buf1=' ') or (buf1=chr(10)) or (buf1=chr( and (buf2< > ' ')     then       begin         wordflag: =true;         currents: =0;         s: =buf2;       end       else       if ((buf1< > ' ') and (buf2=' ')) or ((buf2=chr(10)) or (buf2=chr(         then           begin             wordflag: =false;             for i: =1 to length(s) do               if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then                 inc(currents);             if(currents=mins) then               begin                 inc(minscount);                 setlength(minswords,minscount);                 minswords[minscount-1]: =s;               end;             if(currents< mins) and (currents< > 0) then               begin                 minscount: =1;                 setlength(minswords,minscount);                 minswords[minscount-1]: =s;                 mins: =currents;               end;           end         else           if wordflag               then               s: =s+buf2;     buf1: =buf2;     read(f,buf2);   end;   if wordflag   then   begin   s+=buf2;   for i: =1 to length(s) do               if (lowcase(s[i])='a') or (lowcase(s[i])='e') or (lowcase(s[i])='i') or (lowcase(s[i])='o') or (lowcase(s[i])='u') then                 inc(currents);               if(currents=mins) then               begin                 inc(minscount);                 setlength(minswords,minscount);                 minswords[minscount-1]: =s;               end;             if(currents< mins) and (currents< > 0) then               begin                 minscount: =1;                 setlength(minswords,minscount);                 minswords[minscount-1]: =s;                 mins: =currents;               end;       end   else   if buf2< > ' ' then     begin       if (lowcase(buf2)='a') or (lowcase(buf2)='e') or (lowcase(buf2)='i') or (lowcase(buf2)='o') or (lowcase(buf2)='u') then         currents: =1;       if(currents=mins) then               begin                 inc(minscount);                 setlength(minswords,minscount);                 minswords[minscount-1]: =buf2;               end;       if currents< mins then               begin                 minscount: =1;                 setlength(minswords,minscount);                 minswords[minscount-1]: =buf2;                 mins: =currents;               end;     end;   close(f);   assign(g,'output.txt');   rewrite(g);   for i: =0 to length(minswords)-1 do   write(g,minswords[i],' ');   close(g); end. пример содержимого input.txt: lorem ipsum dolor sit amet consectetur adipiscing elit etc curabitur posuere erat et felis ultricies pulvinar u пример содержимого output.txt: sit etc et u 

Const n = 7; var a: array[1..n,1..n] of integer; i,j,k: integer; begin randomize; for i: = 1 to n do       begin       for j: = 1 to n do               begin               a[i,j]: =random(21)-10;               write(a[i,j]: 4)               end;       writeln       end; k: =0; writeln; for i: = 1 to n do       for j: = n-i+2 to n do               if a[i,j]=0 then k: =k+1; writeln('k = ',k); readln end.