function Summa(a,b:integer):string; var a1,b1:integer; begin //находим сумму первого числа a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше if a1>b1 then Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1) else Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1); end;
procedure TForm1.Button1Click(Sender: TObject); begin //Выполнение и вывод результата функции через нажатие кнопки Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); end;
3 байта = 24 бита
1536 бит < 1,5 Кбайт
8192 байта < 9 Кбайт
1 Кбайт < 9000 бит
1536 бит < 1,5 Кбайт
100 Кбайт < 0,1 Мбайт
Объяснение:
1 байт = 8 бит
1 Кбайт = 1024 байт
1 Мбайт = 1024 Кбайт
24 бит / 8 = 3 байт
1536 бит / 8 = 192 байт / 1024 = 0,1875 Кбайт
9 Кбайт * 1024 = 9216 байт
1 Кбайт * 1024 = 1024 байт * 8 = 8192 бит
1,5 Кбайт * 1024 = 1536 байт * 8 = 12288 бит
0,1 Мбайт * 1024 = 102,4 Кбайт