Pascal ABC Составить программу перевода денежных единиц из рублей в доллары и евро, если...

Question

Pascal ABC Составить программу перевода денежных единиц из рублей в доллары и евро, если известен курс этих валют.

Answer 1

Program _1;
var
dollar,euro,rub:real;
begin
writeln('Введите сумму в рублях');
readln(rub);
dollar:=rub/57;
euro:=rub/68;
writeln('Курс рубля в долларах: ',dollar);
writeln('Курс рубля в евро: ',euro);
end.