Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.Примеры Входные данные Выходные...
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.
Примеры Входные данные Выходные данные
2
1
3
21 12
1
4
01 99Эту задачу можно решать и при помощи одних арифметических операций, не используя инструкцию if.
Гость
Ответ(ы) на вопрос:
Гостьvar a, b, c, d, e, f: integer;
begin
readln(a, b, c, d);
e := a * 100 + b;
f := c * 100 + d;
e := f - e;
f := e mod 100;
e := e div 100;
writeln(e, ' rub. ', f, ' kop.');
end.
Сделал много вычислений, чтобы нагляднее =) Можно даже в 2 строки уложиться, но в данном случае это слишком, наверное:)
Не нашли ответ?
Похожие вопросы