Цветной кадр содержит 1 мбайт информации.сколько точек на этом кадре, если каждая точка может иметь один из трёх цветов

Три цвета -> N=3.
2^i = N. 3 не степень двойки, возьмем N'=4.
Тогда i = 2 бит - это сколько весит каждая точка.
Весь кадр весит 1 МБ -> I = 1 МБ.
I = 2^10 КБ = 2^20 Б = 2^23 бит.
Если знаем сколько весит кадр (т. е. все его точки вместе) и сколько весит одна точка, то можем сказать, сколько точек. I=ik; k=I/i
k = 2^23/2 = 2^22 точек.

Var v:real;
begin
write('Введите скорость в км/c: ');
readln(v);
if v<7.9 then
  writeln('Ракета упадет на Землю');
if v=7.9 then
  writeln('Ракета будет двигаться вокруг Земли по круговой орбите');
if (v>7.9) and (v<11.2) then
  writeln('Ракета будет двигаться вокруг Земли по эллиптической орбите');
if v=11.2 then
  writeln('Ракета будет двигаться вокруг Солнца по круговой орбите');
if (v>11.2) and (v<16.4) then
  writeln('Ракета будет двигаться вокруг Солнца по эллиптической орбите');
if v>16.4 then writeln('Ракета покинет Солнечную систему');
end.

Решение на VB

Sub Rocket()
    Dim x As Single
    x = InputBox("Введите скорость ракеты в км/с")
    Select Case x
    Case Is < 7.91
        MsgBox "Ракета упадет на Землю"
    Case 7.91
        MsgBox "Ракета будет вращаться вокруг Земли по круговой орбите"
    Case Is < 11.2
        MsgBox "Ракета будет вращаться вокруг Земли по эллиптической орбите"
    Case Is < 16.4
        MsgBox "Ракета будет перемещаться в пределах Солнечной системы"
    Case Else
        MsgBox "Ракета покинет Солнечную систему"
    End Select
End Sub