Напишите код на Паскаль пожалуйста!!!!!! 100 баллов
Один молочник наполнил молоком N-литровый бидон и отправился к своим клиентам, живущим на K улицах. На каждой улице он продавал одинаковое количество литров молока L. Обслужив первую улицу, он шел к колонке с водой и доливал бидон до краев. Затем он обслуживал вторую улицу и снова шел к колонке с водой. Так он продолжал действовать и дальше для всех клиентов. Вывести, сколько денег он должен вернуть жителям каждой улицы, если один литр он продавал за P копеек.
Один молочник наполнил молоком N-литровый бидон и отправился к своим клиентам, живущим на K улицах. На каждой улице он продавал одинаковое количество литров молока L. Обслужив первую улицу, он шел к колонке с водой и доливал бидон до краев. Затем он обслуживал вторую улицу и снова шел к колонке с водой. Так он продолжал действовать и дальше для всех клиентов. Вывести, сколько денег он должен вернуть жителям каждой улицы, если один литр он продавал за P копеек.
Answers & Comments
Ответ:
Объяснение:
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.