Составить программу! надо ракета запускается с земли со скоростью v(км час) в направлении движения земли по орбите вокруг солнца. составить программу, определяющую результат запуска ракета в зависимости от скорости v. известно, что при v16,4 ракета покинет солнечную систему.

Решение на 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

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.

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.