Перевод кода - VB (170243)

Формулировка задачи:

помогите перевести код.

#include <iostream>
#include <cmath>
int main(){
 double x;
 std::cin>>x;
 if(x>0) std::cout<<68.1*tan(x); else
 if(x<0) std::cout<<exp(x)+pow(1/5,x); else
 std::cout>>0.5;
 std::cin.get();
}

Решение задачи: «Перевод кода»

textual
                            Листинг программы 
                        

                            Sub main()
 Dim x As Double
 x = InputBox("x ---> ")
 If x > 0 Then
   Print 68.1 * Tan(x)
 Else
   If x < 0 Then
      Print Exp(x) + x ^ (1 / 5)
   Else
     Print 0.5
   End If
End If
End Sub
                        

Оцени полезность:

14 голосов , оценка 4.286 из 5

Похожие ответы