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

Question

Информатика

Софроний

25 ноября, 08:12

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

+3

Ответы (1)

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

Жора · Answer 1

Var rub, e, k:real;

begin

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

readln (rub);

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

readln (k);

e:=rub/k;

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

end.