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

Const

USD=64.05; / / Официальный курс доллара США к рублю на 08.07.2016

EUR=70.95; / / Официальный курс евро к рублю на 08.07.2016

var

RUR:real; / / сумма в российских рублях

begin

Writeln ('Введите сумму в российских рублях: ') ;

Read (RUR) ;

Writeln ('В долларах США: ', RUR/USD:0:2) ;

Writeln ('В евро: ', RUR/EUR:0:2) ;

end.

Тестовое решение:

Введите сумму в российских рублях:

15200.76

В долларах США: 237.33

В евро: 214.25