Question

запросите у пользователя курсы доллара и евро на сегодняшний день и имеющиеся у него рублёвую сумму, рассчитайте сколько долларов и евро он сможет купить. Помогите написать алгоритм, пожалуйста

Answer 1

Var
a,b,c,d:longint;
begin
readln(a); {euro}
readln(b); {usd}
readln(c); {rur}
writeln('USD', c div b);
writeln('EUR ',c div a);
end.