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

Question

Информатика

Порфирий

16 октября, 05:18

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

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