Сравните : 1) 16 бит и 2 байта 2) 1024 кб и 2 мб 3) 2 гб и 2048 мб 4) 1 тб и 2000 гб и желательно с - id801735020220808 от Denchik15070 08.08.2022 07:26

Question

Информатика: Сравните : 1) 16 бит и 2 байта 2) 1024 кб и 2 мб 3) 2 гб и 2048 мб 4) 1 тб и 2000 гб и желательно с объяснением как переводить

Denchik15070 · Accepted Answer

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
uses System.Linq;
begin
    writeln('III');
    var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;
    writeln;

    while a.Any() do
    begin
        write(a[0], ' ');
        a.RemoveAt(0);
        if not a.Any then break;

        write(a.Last, ' ');
        a.RemoveAt(a.Count - 1);
        if not a.Any then break;

        var n := 0;
        if a.Count > 1 then n := a.Count div 2 - 1;
        write(a[n], ' ');
        a.RemoveAt(n);
    end;
end.

Сравните : 1) 16 бит и 2 байта 2) 1024 кб и 2 мб 3) 2 гб и 2048 мб 4) 1 тб и 2000 гб и желательно с объяснением как переводить

MOGZ ответил