Никазий
7 год назад
Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить?
Входные данные
Вводятся 4 числа: a, b, c и d.
Выходные данные
Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.
объясните пожалуйста решение
ОТВЕТЫ
Витольдович
Aug 12, 2019
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.
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.
130
