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

Question

Информатика

Порфирий

26 июля, 08:17

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

+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.