Сколько бит информации содержит сообщение объемом 2 гбайта

Ответ: 16 гбит. в одном байте 8 бит.

//pascal abc.net v3.1 сборка 1172 //1 var   s: string;   i: integer; begin   readln(s);   while i< length(s) do   begin   inc(i);   if s[i]=',' then insert(' ',s,i+1);   end;   writeln(s); end. пример ввода: some,awesome,test,text, пример вывода: some,  awesome,  test,  text,  //2 var   s: string;   i,k,j: integer;   ars: array of string; begin   readln(s);   setlength(ars,length(s));   k: =0;   for i: =1 to length(s) do   begin   if (s[i]=' ') and (s[i+1]< > ' ') and (i< > length(s)) then inc(k) else  ars[k]: =ars[k]+s[i];   end;   for i: =0 to k-1 do   for j: =i+1 to k do     if lowercase(ars[i])> lowercase(ars[j]) then     begin     s: =ars[i];     ars[i]: =ars[j];     ars[j]: =s;     end;   for i: =0 to k do   writeln(ars[i]);   end. пример ввода:               много яков и антилоп пример вывода: антилоп и много яков

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 function fs(a,b: real): =0.5*a*b; begin   var a,b: real;   write('катеты первого треугольника: '); read(a,b);   var s1: =fs(a,b);   write('катеты второго треугольника: '); read(a,b);   var s2: =fs(a,b);   if s1> s2 then writeln('площадь первого треугольника больше')   else       if s1< s2 then writeln('площадь второго треугольника больше')   else writeln('площади треугольников равны') end. тестовое решение катеты первого треугольника: 4.18 6 катеты второго треугольника: 5.4 3.9 площадь первого треугольника больше