Задача: Логистическая компания.
Разработать программу для определения тарифной сетки стоимости доставки груза.
Пользователь вводит наибольшее расстояние в км., и шаг изменения расстояния. Стоимость
одного километра считать равной 18 руб.
При увеличении расстояния на каждые 5 км., стоимость одного километра
уменьшается на 1,3%.
У меня ошибка в том, что прога сначала высчитывает просто цену, а потом только со скидкой. А нужно- чтобы он 1,2,3,4 высчитывал без скидки, а уже с 5 км была скидка сразу
Можете помочь решить с моими же переменными
program lab5;
Var p:real;
l,j,i,s:integer;
begin
write ('введите наибольшее расстояние в км:');
readln(s);
writeln('Введите шаг изменения растояния');
readln(l);
for j:=l to s do
writeln('Стоимость доставки груза за '+j+' km: ', (j*18));
for i:=l to s do
if (i mod 5) = 0
then
writeln('Стоимость доставки груза за '+i+' км с учетом скидки ', (i*18)-0.013);
p:=s*18;
writeln ('стоимость за наибольшее расстояние ',p);
p:=(s*18)-0.013;
writeln ('стоимость за наибольшее расстояние c учетом скидки ',p);
end.
