Какие из представленных выражений не имеют смысла, если с1–числовая, с2–булева, с3–текстовая переменные? a. (c1+2/3) или c2 b. с2 и не(с1< 2) c. (c3< > "текст") и (с1=0)
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.
