Надо. 10000 байт перевести в килобайты 10000 байт перевести в мегабайты (мг) 600000 байт перевести в кигобайт (кб)

надо.

10000 байт перевести в килобайты 

10000 байт перевести в мегабайты (мг)

600000 байт перевести в кигобайт (кб)

решение

1 килобайт = 2^10 = 1024 байт > 1 байт=1/2^10 килобайт

1 мегабайт = 2^20 = 1048576 байт > 1 байт = 1/2^20 мегабайт

приставка киго не существует, по этому принимаю буквенное обозначение кб

тогда

10000 байт = 9,765625 килобайт

10000 байт = 0,00953674 мегабайт

600000 байт = 585,9375 килобайт

10000 байт = 10000 : 2^10 кб = 9,8 кб

10000 байт = 10000 : 2^20 мб = 0, 009 мб

600000 байт = 600000 : 2^10 = 586 кб

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var a: =seqrandom(readinteger('n=',20)       .select(i-> real(;   a.println;   var b: =a[0]*a.skip(1).where(x-> x> 0).aggregate(1.0,(p,x)-> p*x);   writeln(b); end. тестовое решение: n= 15 14 17 5 -1 9 -18 2 3 -20 5 -10 0 4 -1 -8 1285200 пояснения по каждому оператору 1. запрашивается количество элементов в последовательности n, генерируется последовательность из n целых чисел в диапазоне от -20 до 20, затем элементы последовательности преобразуются в вещественное представление и образуют динамический массив а. 2. элементы массива а выводятся на экран. 3. первый элемент массива умножается на произведение остальных положительных элементов и результат присваивается переменной b. 4. значение переменной b выводится на экран. в целях небольшого предполагается, что n> 1 и что среди элементов массива, за исключением первого, имеется хотя бы один положительный элемент. это связано с тем, что в отсутствует описание действий в случае, если вышеописанное предположение окажется неверным. переход к вещественному представлению чисел связан с обходом переполнения разрядной сетки при целочисленном умножении для больших значений n.

Var a,b,c: real; begin readln(a,b,c); if (a = b) and (b = c) then begin writeln ('треугольник равносторонний'); writeln('его высота = ',(sqrt(3) * a)/2: 0: 3) end  else  if (a = b) or (b = c) or (c = a) then begin writeln('треугольник равнобедренный'); writeln('его полупериметр = ',(a+b+c)/2); end  else begin  writeln('треугольник разносторонний'); if (a> b) and (a> c) then writeln('большая сторона = ',a) else if (b> a) and (b> c) then writeln('большая сторона = ',b) else writeln('большая сторона = ',c); end; end.