Question

Напишите код на Паскаль пожалуйста!!!!!! 100 баллов
Один молочник наполнил молоком N-литровый бидон и отправился к своим клиентам, живущим на K улицах. На каждой улице он продавал одинаковое количество литров молока L. Обслужив первую улицу, он шел к колонке с водой и доливал бидон до краев. Затем он обслуживал вторую улицу и снова шел к колонке с водой. Так он продолжал действовать и дальше для всех клиентов. Вывести, сколько денег он должен вернуть жителям каждой улицы, если один литр он продавал за P копеек.​

Answer 1

Ответ:

Объяснение:

var

 N, K, L, P, a : integer;

i : integer;

 p0, b : Double;

begin

writeln ('Введите объём бидона ');            readln (N);

writeln ('Введите количество улиц ');        readln (К);

writeln ('Введите количество литров на улицу ');       readln (L);

writeln ('Введите цену литра молока ');    readln (P);

p0 := n*p; // цена всего бидона первоначально

 for I := 1 to k - 1 do begin   //  с 1 т.к. первой улице не разбадяжил

   p0 := p0 - l*p0/n;  // стоимость всего молока реальная для каждой улицы

   b := (p-p0/n)*l; // на сколько денег обманул улицу

   writeln(Format('%d улице должен вернуть = %f ', [i, b]))

end;

end.