Чтобы биты перевести в килобайты, нужно биты эти разделить на 8 (количество битов в байте) умноженное на 1024 (количество байтов в килобайте), то есть получается так:
12288/(8*1024)=1.5 килобайта.
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandom(100, -60, 140);
println(a);
println('Max = ' + a.Max);
println('Min = ' + a.Min);
end.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
ч, y: ЦЕЛ;
УКАЗ
ч := Приём.Число();
y := (ч ДЕЛИТЬ 100 ОСТАТОК 10) * 1000 +
(ч ДЕЛИТЬ 1000) * 100 +
(ч ОСТАТОК 10) * 10 +
(ч ДЕЛИТЬ 10 ОСТАТОК 10);
Вывод.ЧЦел("^%d", y, 0, 0, 0)
КОН Задание.
А)
д = 14+1
С = 15
к=2*15
Ответ: С = 15, К = 30
б)
д=30-5
к=2*25=50
с=50-100=-50
Ответ: С = -50, К=50