1. Находим общее количество пикселей n = 1024×768 = 786432 2. Находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. Определяем объем информации в битах I = n×k = 786432×6 = 4718592 бит 4. Переводим в более крупные единицы - в байты: 1 байт=8 бит; 4718592 бит/8 = 589824 байт - в Кбайты: 1 Кбайт=1024 байта; 589824 байт/1024 = 576 Кбайт - в Мбайты: 1 Мбайт=1024 Кбайта; 576 Кбайт/1024 = 0.5625 Мбайт.
Б. Решение "в степенях двойки"
1. Находим общее количество пикселей n = 1024×768 = 2¹⁰×2⁹×1.5 = 2¹⁹×1.5 2. Находим количество бит, необходимое для отображения цвета одного пикселя k=㏒₂64 = 6 (или просто вспоминаем, что 64=2⁶) 3. Определяем объем информации в битах I = n×k = 2¹⁹×1.5×6 = 2¹⁹×9 бит 4. Переводим в более крупные единицы - в байты: 1 байт=2³ бит; 2¹⁹×9 бит/2³ = 2¹⁶×9 байт - в Кбайты: 1 Кбайт=2¹⁰ байт; 2¹⁶×9 байт/2¹⁰ = 2⁶×9 Кбайт = 64×9 = 576 Кбайт - в Мбайты: 1 Мбайт=2¹⁰ Кбайт; 2⁶×9 Кбайт/2¹⁰ = 2⁻⁴×9 Мбайт = 9/16 Мбайт = 0.5625 Мбайт.
Var InFile, OutFile: text; // Вводной и выводной файлы Var a,b,c, D, Result : Integer; Assign(InFile, "C:\kvur.txt"); Assign(OutFile, "C:\korni.txt") Reset(InFile) Read(InFile,a) Read(InFile,b) Read(InFile, c) D = sqr(b) + 4*a*c if D = 0 then Write("Уравнение не имеет корней") Else Append(OutFile) Result:=(-b + sqrt(D)) / 2 * a Write(OutFile,Result) Write("Корень уравнения") WriteLn(Result) if (D>0) then Result:=(-b - sqrt(D)) / 2 * a Write(OutFile, Result) Write("Второй корень уравнения") Write(Result) End; End.
1 знак пробел
2 знак неразрывный пробел
3 знак конец обзаца
4 знак табуляция
вроде верно
если я не понял задание скажите и я попробую переделать
Объяснение: