Составить программу для перевода суммы из долларов в рубли. Вводится текущий курс доллара и сумма в долларах. Результат должен выводиться в денежном формате: 345 РУБ 40 КОП. Язык: Паскаль.

Программа на Паскале:

program DollarToRuble;
var
kurs, dollars, sum: real;
rub, kop: integer;
begin
readln(kurs);
readln(dollars);
sum := kurs * dollars;
rub := trunc(sum);
kop := round((sum - rub) * 100);
if kop = 100 then
begin
rub := rub + 1;
kop := 0;
end;
writeln(rub, ' РУБ ', kop, ' КОП');
end.

Сначала вводятся курс доллара и сумма в долларах. Затем программа умножает их, отделяет рубли от копеек и выводит результат в денежном формате.

0 0 Пожаловаться