Используя верхнюю таблицу, прочтите фразу зашифрованную в нижней таблице. 9 20 13 2 17 5 16 22 10 8 12 1 3 25 18 19 7 15 6 21 4 23 11 24 14 е д д и й г а у п н е н к й т е а в д р о з р е а

Никогда не предавайте друзей

Так происходит потому, что данные на SSD и HDD накопителях компьютера измеряются в двоичной системе исчисления, в виде единиц и нулей, а не в десятеричной, как мы привыкли. Вся разница возникает, когда производитель дисков для удобства указывает размер в десятеричной системе.

Из-за того, что в 1 Кб (Килобайт) = 1024 байт и возникает такая путаница.

Пойдем дальше, и посчитаем значения для более высоких значений:

 

1 Мб (Мегабайт) = 1024 Кб

1 Гб (Гигабайт) = 1024 Мб

1 Тб (Терабайт) = 1024 Гб

Для начала Гигабайты переведем в байты. Для этого потребуется три раза умножить на 1024. А дальше разделить на 1000 три раза. Итого: 16Гб*1024*1024*1024*1000*1000*1000=14,9 Гб.

Именно столько будет видеть Ваш компьютер.

Объяснение:

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var (a,b):=ReadReal2('Введите через пробел a,b:');
  Writeln(a,' + ',b,' = ',a+b);
  Writeln(a,' - ',b,' = ',a-b);
  Writeln(a,' * ',b,' = ',a*b);
end.

Пример
Введите через пробел a,b: -3.6 2.15
-3.6 + 2.15 = -1.45
-3.6 - 2.15 = -5.75
-3.6 * 2.15 = -7.74

begin
  var n:=ReadInteger('n=');
  var a:=ReadReal('a=');
  var p:=1/a;
  var s:=p;
  for var i:=1 to n do begin p/=(a+i); s+=p end;
  Writeln(s)
end.

Пример
n= 6
a= 2.4
0.57315329840095

begin
  var n:=ReadInteger('n=');
  var s:=ReadSeqReal('Введите '+n+' чисел:',n).Select(x->Abs(x)).Sum;
  Writeln('Сумма модулей равна ',s)
end.

Пример
n= 6
Введите 6 чисел: -4.35 2.63 11 -8.1 0 -6.4
Сумма модулей равна 32.48