|
|
back to boardtest 10 -help!!! 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!!! tushunarli qip o'zbechasini yozin hojiyevsunatullo_1991@mail.ru Posted by Sunnat 7 Dec 2011 16:42 a=b ga etibor bering |
|
|