Написать программу, реализующую следующую задачу: дана сумма денег в некоторой валюте. Определите соответствующий денежный эквивалент в другой валюте.

Это просто, если знать курс Dim R As Integer, D As Integer, E As Integer, X As String Const Euro = 45,38, Dollar = 32,68 ' Здесь вводишь реальные курсы Cls Print "Введите сумму, в конце напишите код валюты - RUR, rur, USD, usd, EUR, eur" Input X If Ucase (Right (X, 3)) = "RUR" Then      R = Val (Trim (Left (X, Len(X) - 3)))      D = R / Dollar      Print Str (D) & "долларов"      E = R / Euro      Print Str (E) & "евро" ElseIf Ucase (Right (X, 3)) = "USD" Then      D = Val (Trim (Left (X, Len(X) - 3)))      R = D * Dollar      Print Str (R) & "рублей"      E = R / Euro      Print Str (E) & "евро" ElseIf Ucase (Right (X, 3)) = "EUR" Then      E = Val (Trim (Left (X, Len(X) - 3)))      R = E * Euro      Print Str (R) & "рублей"      D = R / Dollar      Print Str (D) & "долларов" Else      Print "Введите правильное название валюты в любом регистре!" End If Программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.