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

Question

Информатика

Евдокимка

14 июля, 06:28

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

+2

Ответы (1)

Знаете ответ?

Петряша · Answer 1

Program _1;

var

dollar, euro, rub:real;

begin

writeln ('Введите сумму в рублях') ;

readln (rub) ;

dollar:=rub/57;

euro:=rub/68;

writeln ('Курс рубля в долларах: ', dollar) ;

writeln ('Курс рубля в евро: ', euro) ;

end.