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