Var a, b, c, d, f: real; begin a:=40; b:=25; readln(c); a:=a-a*25/100; d:=c/a;...

Question

Var a, b, c, d, f: real;
begin
a:=40;
b:=25;
readln(c);
a:=a-a*25/100;
d:=c/a;
writeln('Количество тетрадей');
writeln (int (d));
end.


readln(c) = 1000
Первоначальная цена 40 руб, затем скидка = 25%, новая цена 30 рублей.
Ответ: на 1000 рублей можно купить 33 тетради (по 30 руб).
ВОПРОС: НУЖНО СДЕЛАТЬ ТАК, ЧТОБЫ ПРОГРАММА ВЫДАЛА СДАЧУ! СПАСИБО

Answer 1

Во первых в проге можно облегчить; вместо int(d) и d:=C/A
можно: d:=C div A и потом просто вывести д
ну а про сдачу то формулу f:=c mod a и потом вывести ф