Question

1. Написать командный файл, который:

• запрашивает у пользователя текущий курс доллара

• запрашивает у пользователя сумму в рублях

• выводит сумму в долларах по текущему курсу

Answer 1

uses crt;
var
a, b, i : real ;
begin
clrscr;
write('Курс $= '); readln (a);
write ('Сумма в рублях = '); readln (b);
i:= b/a;
writeln (i:6:2);
readkey;
end.