Var
a,b : array[1..8, 1..8]of integer;
i, j,k, x, y, x1, y1:integer;
begin
k:=-1;
for i:= 1 to 8 do
begin
k:=-k;
for j:= 1 to 8 do
begin
a[i,j]:=k;
b[i,j]:=k;
k:= -k;
end;
end;
Readln(x,y);
Readln(x1,y1);
if (a[x,y] = b[x1,y1]) then Writeln('YES')
else Writeln('NO');
end.
Ответ: 3
Чтобы узнать куда переместился Чертёжник надо сложить координаты по осям и умножить на количество повторов.
Сложим координаты по оси X:
x = 11 * (–3 + 7 + 1)
x = 11 * 5
x = 55
Сложим координаты по оси Y:
y = 11 * (–3 + (–3) + 5)
y = 11 * (–3 – 3 + 5)
y = 11 * (–1)
y = –11
Таким образом, Чертёжник окажется в точке (55, –11). Следовательно, для того, чтобы Чертёжник вернулся в исходную точку ему нужно выполнить обратную команду Сместиться на (–55, 11). (Чтобы Чертёжник вернулся в исходную точку координаты в сумме должны давать 0.)
Схема Горнера для полиномов:
1 - 2x + 3x² - 4x³ = 1 + x(-2 + x(3 - 4x))
Program Treug;
Var a,b: real;
Begin;
writeln('Введите a и b');
readln(a,b);
writeln('Площадь треугольника: ' a*b);
writeln('Периметр треугольника:' 2*(a+b);
End.
вот легкий код