Задача A-Слонові походи

var a,b,c,d,t,n,i : longint;

 begin

                readln(t);

                for i:=1 to t do begin

                               readln(n,a,b,c,d);

                               if (a=c) and (b=d) then writeln(0)

                                               else if odd(a+b+c+d) then writeln('no move')

                                                               else if abs(a-c)=abs(b-d) then writeln(1)

                                                                               else writeln(2)

                end                                      

 end.

 

Задача B-Доміно своїми руками

{$I-,Q-,R-,S-}

VAR n,i :longint;

    res :int64;

begin

                readln(n);

                for i:=1 to n do begin inc(res,n*(n+1) div 2); inc(res,2*i); end;

                writeln(res);

end.

 

Задача C-Цікава послідовність

const e=1e-8;

var n     :longint;

                i                              :longint;

    r,k      :extended;

begin

  readln(n);

  for i:=1 to n do begin

    readln(k);

    r:=(-1+sqrt(-7+8*k))/2;

    if frac(r)<e then write(1,' ') else write(0,' ');

  end;

  writeln;

end.