(Pascal)Программа перевода денег из одной валюты в другую по текущему курсу.
В программе должен осуществляться запрос: вариант перевода (например:
1 - доллар в рубль, 2 - рубль в доллар); сумма денег; текущий курс.
В программе должен осуществляться запрос: вариант перевода (например:
1 - доллар в рубль, 2 - рубль в доллар); сумма денег; текущий курс.
More Questions From This User See All
Answers & Comments
Verified answer
Var a,b:integer;s1,s2:string;
begin;
writeln('Введите начальную валюту');
readln(s1);
writeln('Введите конечную валюту');
readln(s2);
writeln('Введите сумму денег');
readln(a);
writeln('Введите текущий курс ',s1,' по отношению к ',s2);
readln(b);
writeln('Вы получите ', a*b,' ', s2);
end.