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

Это просто, если знать курс

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

Программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.