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.