N=2^i ; i=24 (У вас скорей всего опечатка, так как 2^24=16777216
1024*764=783360
783360*16бит=12533760 бита/8бит/1024Байт=1530Кб/1024Кб=1,49мб
Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.
1 наверно рулит
2 бензобак
а остальное не знаю
' 1)Напиши программу, выводящую на экран степени числа 3 в интервале от а до b включительно (а и b задаются пользователем).
Dim a As Integer
Dim b As Integer
Dim i As Integer
a = InputBox("Введите а")
b = InputBox("Введите b")
Dim msg As String
msg = ""
For i = a To b
msg = msg & 3 в степени " & i & " равно " & 3 ^ i & vbCrLf
Next
MsgBox(msg)
<span>2)Найти все делители числа 1204.
</span>
Dim i As Integer
Dim msg As String
msg = ""
For i = 1 To 1204
If 1204 Mod i = 0 Then
msg = msg & "Число " & i & " является делителем 1204." & vbCrLf End If
Next<span>
MsgBox(msg)</span>
Ответ:
4096 бит
Задача: Сколько килобайт поместится в 16384 бита?
(ответ: 16384 бита = 2 кбайта)
Объяснение:
1 байт = 8 бит или 2³ бит
Приставка "кило" в информатике означает множитель 2 в 10 степени.
Значит 1 кбайт = 2¹³ бит
Тогда 0,5 кбайта будет равно
½ × 2¹³ бит равно 2 в минус первой степени × 2¹³ = 2¹² бит. А это число 4096.