Для заданного числа n составьте программу вычисления суммы s=1/2-1/3+1/4-1/5+..+1/n, где n натуральное - id528048120230203 от dokeliz 03.02.2023 03:16

Question

Информатика: Для заданного числа n составьте программу вычисления суммы s=1/2-1/3+1/4-1/5+..+1/n, где n натуральное число.

dokeliz · Accepted Answer

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

Для заданного числа n составьте программу вычисления суммы s=1/2-1/3+1/4-1/5+..+1/n, где n натуральное число.

MOGZ ответил