Var i,s,p,a,b,k: integer; begin readln(a,b); p: =0; s: =0; for i: =a to b do begin if i mod 2=0 then s: =s+i else p: =p+i; end; if s> p then k: =1 else k: =2; if s=p then k: =0; writeln(k); end.

Варчай06    2   06.10.2019 22:40    0