Question

Лифт
Чтобы поднять на N-й этаж M-этажного дома новый холодильник, Витя вызвал бригаду грузчиков. Оплата работы грузчиков производится так: за подъем холодильника на один этаж требуется заплатить 200 рублей, за спуск на один этаж — 100 рублей. За подъем и спуск на лифте плата не взимается. Несмотря на то, что в Витином доме есть лифт, ему возможно все же придется заплатить грузчикам, поскольку лифт останавливается только на каждом K-м этаже, начиная с первого (то есть на этажах с номерами 1, K+1, 2K+1, 3K+1, …). Требуется вычислить, какой минимальной суммы денег достаточно, чтобы грузчики доставили холодильник с первого этажа на N-й. Pascal

Answer 1

var
n,m,k,sum:integer;
begin
read(n,m,k);
i:=1;
sum:=(n-1)*200;
while i*k+1<=m do
begin
l:=i*k+1;
if l<=n then sum1:=(n-l)*200
else
sum1:=(l-n)*100;
if sum1inc(i);
end;
write(sum);
end.
как то так

Answer 2

if sum1