Составить программу в паскале авс перевода количества рублей в евро по курсу обмена валют

Question

Информатика

Елпидифор

7 декабря, 23:15

Составить программу в паскале авс перевода количества рублей в евро по курсу обмена валют

+1

Ответы (1)

Знаете ответ на вопрос?

Декабриныч · Answer 1

Var rub, e, k:real;

begin

write ('Введите количество рублей=') ;

readln (rub) ;

write ('Введите курс евро=') ;

readln (k) ;

e:=rub/k;

writeln (rub, 'рублей это ', e:5:2,' евро') ;

end.