Задание:
Запросите у пользователя курсы доллара и евро на сегодняшний день и имеющуюся у него рублѐвую сумму, и рассчитайте сколько долларов и сколько евро он может купить на эти деньги.
Решение:
var s,e,r: real; beginreadln (s,e); s: =r/s; e: =r/e; writeln (s, ' долларов. ', e, ' евро'); end.
Знаете другой ответ?