Объем информационного сообщения 12582912 битов. выразить в килобайтах и мегабайтах.

Килобайт 1536 мегабайтах 1.5

1var i, minus, plus, zero: integer; t: array [1..15] of integer; begin minus : = 0; plus : = 0; zero : = 0; for i : = 1 to 15 do begin readln(t[i]); if t[i] > 0 then plus : = plus + 1; else if t[i] < 0 then minus : = minus + 1; else zero : = zero + 1; end; end. 2 var stroke: string; begin readln(stroke); if length(stroke) mod 2 = 0 then writeln('четно'); else writeln('нечетно'); end. 3 (сейчас далеко от компа, когда буду рядом отредачу) 4 var max, min, i: integer; a: array[1..20] of integer; begin min : = a[1]; max : = a[1]; for i : = 2 to 15 do begin if a[i] > max then max : = a[i]; if a[i] < min then min : = a[i]; end; end.

#include< bits/stdc++.h> using namespace std; int main(){  int min = 1000, max = 0;     int a[30];   for(int i = 1; i < = 30; i++){      cin > > a[i];       if(a[i] > max)          max = a[i];       if(a[i] < min)         min = a[i];       }  cout < < min < < " " < < max < < endl;   return 0; }