Свойство информации, выражающие степень соответствия создаваемого образа и реального объекта

150

449

Посмотреть ответы 1

Ответы на вопрос:

Tavus1980

Информатика

4,6(78 оценок)

Это просто, если знать курс 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) - 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) - 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) - r = e * euro print str (r) & "рублей" d = r / dollar print str (d) & "долларов" else print "введите правильное название валюты в любом регистре! " end if программа сама проверяет, в какой валюте ты ввел число, и выдает результат в двух других валютах.