Discussion @ 1638. Bookworm @ Timus Online Judge

test 10 -help!!!

Posted by Nargiza Asqarova 6 Dec 2011 18:13

var t,z,k:byte; a,b:1..100;
s:longint;
begin
read(t,z,a,b);
if (b>a) then begin
k:=b-a; s:=2*k*z+((k-1)*t); end;
if(a>b) then begin k:=a-b; s:=(((2*k)+1)*z+(k+1)*t-1); end;
write(s);end.

Re: test 10 -help!!!

Posted by DILSHOD7775 7 Dec 2011 14:05

tushunarli qip o'zbechasini yozin

hojiyevsunatullo_1991@mail.ru

Posted by Sunnat 7 Dec 2011 16:42

a=b ga etibor bering

Discussion of Problem 1638. Bookworm