Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется...

Question

Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно. паскаль! помогите пожалуйста, дуб дубом в программировании((((

Answer 1

Var a,b,c,d,e,f:integer;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
writeln('Введите d');
readln(d);
e:= (100*c+d-100*a-b)div 100;
f:=(100*c+d-100*a-b)mod 100;
writeln(e,' руб ',f,' коп');
end.

Comments

большое спасибо)))

---

Пожалуйста

---

когда выводятся переменные e,f их нужно брать по модулю, а то выводятся отрицательные числа, т.е. writeln (abs(e),' руб ',abs(f),' коп');

---

По условию задачи e и f не могут быть отрицательными,так как мы платим больше,чем стоит товар,а значит сдача всегда положительна.При выполнении моей программы при правильно введённых числах это выполнятеся

---

программа выполняется)