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 руб). вопрос: нужно сделать так, чтобы программа выдала сдачу!
можно: d:=C div A и потом просто вывести д
ну а про сдачу то формулу f:=c mod a и потом вывести ф