Объяснение:
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.
94мм
Объяснение:
374км=374000000мм
374000000/4000000=93.5мм