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

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

Question

Информатика

Темп

6 декабря, 14:45

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

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

+3

Ответы (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 в рубли