Вот кое-что набил.
Код
var x1_,x2_,y1_,y2_:byte;
procedure ProverKa1(x1, x2, y1, y2 : byte);
begin
x1 := (x1 mod 2) + (y1 mod 2);
x2 := (x2 mod 2) + (y2 mod 2);
if (x1=x2) or (x1-x2=2) or (x1-x2=-2) then writeln('a) ODNOGO CVETA')
else writeln('a) rasnogo');
end;
procedure ProverKa2(x1, x2, y1, y2 : byte);
begin
if (x1 = x2) or (y1 = y2) then writeln('b) BIET') else
if (x1 - y1) = (x2 - y2) then writeln('b) BIET') else
if (x1 + y1) = (x2 + y2) then writeln('b) BIET') else
writeln('b) Ne biet');
end;
procedure ProverKa3(x1,x2,y1,y2 : byte);
begin
if (x1 - x2 = 1) and (y1 - y2 = -2) then writeln('c) BIET') else
if (x1 - x2 = -1) and (y1 - y2 = -2) then writeln('c) BIET') else
if (x1 - x2 = -2) and (y1 - y2 = -1) then writeln('c) BIET') else
if (x1 - x2 = -2) and (y1 - y2 = 1) then writeln('c) BIET') else
if (x1 - x2 = -1) and (y1 - y2 = 2) then writeln('c) BIET') else
if (x1 - x2 = 1) and (y1 - y2 = 2) then writeln('c) BIET') else
if (x1 - x2 = 2) and (y1 - y2 = 1) then writeln('c) BIET') else
if (x1 - x2 = 2) and (y1 - y2 = -1) then writeln('c) BIET') else
writeln('c) Ne biet');
end;
begin
readln(x1_,x2_,y1_,y2_);
ProverKa1(x1_,x2_,y1_,y2_);
ProverKa2(x1_,x2_,y1_,y2_);
ProverKa3(x1_,x2_,y1_,y2_);
readln;
end.
Можно и через масивы, но что-то потянуло на математику.
VelarThind, теги [CОDE][/CОDE] для кого сделаны?