Перевести в биты: 14тб, 5мб,10гб перевести в байты: 231гб,800бит,13мб

: 14тб = 120.259.084.288 бит

5мб = 40960 бит

10гб = 83886080 бит

: 231гб = 242221056 байт

800бит = 100 байт

13мб = 13312 байт

1,12е+14

4е+7

8е+10

2,31е+11

100

1,5е+7

program pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

2000 знаков (но точно не уверен)