1. Перевод из килобайтов в биты (1 кБ = 1024 * 8 бит = 8192 бита):
173,25 кБ = 173,25 * 8192 бита = 1419264 бита

2. Перевод из байтов в биты (в одном байте 8 бит):
16,75 Б = 16,75 * 8 бит = 134 бита

3. Перевод из гигабайтов в терабайты (1 ТБ = 1024 ГБ):
6363 ГБ = 6363 / 1024 ТБ = 6,2138671875 ТБ

4. Перевод из гигабайтов в мегабайты (1 ГБ = 1024 МБ):
27,5 ГБ = 27,5 * 1024 МБ = 28160 МБ

5. В этой фразе 41 символ. Значит, объём для её хранения равен:
41 * 16 бит = 656 бит = 656 / 8 Б = 82 Б

0 0

4 года назад

Как через лазарус сделать чтобы форма меняла цвет от одного до другого(от красного к черному и потом наоборот)

leha-pavar

1 var
2 cl : array[0 .. 2] of TColor = (clGreen, clRed, clYellow);
3 curr : integer = 0;
4
5 procedure TForm1.Button1Click(Sender: TObject);
6 begin
7 curr := succ(curr) mod 3;
8 Color := cl[curr];
9 end;
10
11 procedure TForm1.FormCreate(Sender: TObject);
12 begin
13 Color := cl[curr];
14 end;

0 0

4 года назад

Выполните сложение чисел в двоичной системе счисления, а затем переведите все слагаемые в десятичную систему счисления : 1010010

Елена ПрЫкрасная [177]

Решение и ответ)))))))))))))))))

0 0

4 года назад

Составить программы 1. Вычисления произведения цифр трехзначного числа (используя div и mod) 2. Определения возможности существо

irinnnaa [301]

Program vs4;Var n,b,a,c:integer;Begin Writeln('Введите трехзначное число'); Readln(n); a:=n div 100; b:=(n div 10) mod 10; c:=(n mod 100) mod 10; n:=a+b+c; Writeln('Сумма цифр данного числа=',n);End.

0 0

4 года назад