Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

(Pascal)Программа перевода денег из одной валюты в другую по текущему курсу.
В программе должен осуществляться запрос: вариант перевода (например:
1 - доллар в рубль, 2 - рубль в доллар); сумма денег; текущий курс.

Ответ оставил Гость

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.