Помогите по информатике. Нужно написать программу на языке pascal.

Условие - Перевести доллары от 1 до 10 в рубли

Question

Информатика

Корсак

1 апреля, 15:56

Помогите по информатике. Нужно написать программу на языке pascal.

Условие - Перевести доллары от 1 до 10 в рубли

+5

Ответы (1)

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

Авианк · Answer 1

const

rubles = 66.85;

var dollars:integer;

begin

writeln ('Введите доллары: ') ;

readln (dollars) ;

writeln (dollars, ' в рублях = ', (dollars * rubles) : 2:2) ;

end.

Помогите по информатике. Нужно написать программу на языке pascal.Условие - Перевести доллары от 1 до 10 в рубли

Помогите по информатике. Нужно написать программу на языке pascal.

Условие - Перевести доллары от 1 до 10 в рубли