Discussion @ 1820. Ural Steaks @ Timus Online Judge

Online Judge	Problems	Authors	Online contests
About Online Judge Frequently asked questions Site news Webboard Links	Problem set Submit solution Judge status Guide	Register Update your info Authors ranklist	Current contest Scheduled contests Past contests Rules

Discussion of Problem 1820. Ural Steaks

Help me please. Where is error? В чем ошибка?

Posted by timur1108 3 Mar 2015 20:50

var n,k,l:real;
begin
read(n,k);
l:=(n*2/k);
if trunc(l)=0 then write(2)
else if frac(l)=0 then write(l)
else write(trunc(l)+1);
end.

Re: Help me please. Where is error? В чем ошибка?

Posted by nxao 14 Jun 2015 04:44

l:=(n*2)/k;