var a, b, c, d, f: real;begina:=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 руб). ВОПРОС: НУЖНО СДЕЛАТЬ ТАК, ЧТОБЫ ПРОГРАММА ВЫДАЛА СДАЧУ! СПАСИБО

Question

Информатика

Selosobba

5 год назад

var a, b, c, d, f: real;begina:=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 руб). ВОПРОС: НУЖНО СДЕЛАТЬ ТАК, ЧТОБЫ ПРОГРАММА ВЫДАЛА СДАЧУ! СПАСИБО

ОТВЕТЫ

Герасим

Oct 24, 2020

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

965