челночный бег

[009]

var
l,t,d:longint;
k,m:longint;
begin
read(l,t,d);
m:=l div 10;
k:=t div m;
if ((k mod 2=0)and((t mod m)*10>=d)) or ((k mod 2<>0) and ((t mod m)*10>=l-d)) then k:=k+1;
if d=0 then k:=(t div m) div 2 +1;
if d=l then begin k:=(t div m) div 2;
if (t div m) mod 2 <>0 then inc(k);
end;
write(k);
end.

[uzer2007]

009 спасибо, а можно немножко пояснить?

[009]

Сообщение от uzer2007

009 спасибо, а можно немножко пояснить?

можно.
вот эта часть:

if ((k mod 2=0)and((t mod m)*10>=d)) or ((k mod 2<>0) and ((t mod m)*10>=l-d)) then k:=k+1;

это решение озвученное выше.
Вот эти два случая:

if d=0 then k:=(t div m) div 2 +1;
if d=l then begin k:=(t div m) div 2;
if (t div m) mod 2 <>0 then inc(k);

когда d=0 и когда d=l. Попробуйте вручную порисовать и понять как для этих случаев как будет пересекать датчик бегун.

[Sciv]

Вот эти два случая:

О, точно, здесь я немного не учел...

[uzer2007]

спасибо огромное! Здорово помогли разобраться!