Submission #2830536

---

Source Code Expand

var a,b,c,s:longint;
begin
  readln(a,b);
  if a=b then begin writeln('0'); exit; end;
  if a>b then c:=a-b;
  if a<b then c:=b-a;
  if c>=10 then begin s:=c div 10; c:=c mod 10; end;
  if c>=8 then begin inc(s); c:=10-c; end;
  if c>=5 then begin inc(s); c:=c-5; end;
  if c>=4 then begin inc(s); c:=5-c; end;
  s:=s+c;
  writeln(s);
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result