Это говорит о том что нужно менять винду на 10 пока она не стала платной
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.
64 · 512 = 2⁶ · 2⁹ = 2¹⁵ бит
32 Кб = 2⁵ Кб = 2⁵ · 1024 = 2⁵ · 2¹⁰ = 2¹⁵ байт = 2¹⁵ · 8 = 2¹⁵ · 2³ = 2¹⁸ бит
2¹⁸ = i · 2¹⁵
i = 2¹⁸ / 2¹⁵ = 2¹⁸⁻¹⁵ = 2³ = 8 бит на каждый цвет
<h2>Ответ</h2>
256