Var
A, B, C, D: integer;
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
Readln(f1, A, B, C, D);
if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.
Дано:
N=4
K=10
Найти:
I=?
Решение:
I=K*i
2^i=N
i=√N
i=√4
i=2 бит
I=10*2
I=20 бит
Ответ: 20 бит
Uses
GraphABC;
begin
Window.Init(0, 0, 300, 300, clWhite);
window.CenterOnScreen();
Pen.Color := clSilver;
Pen.Width := 3;
Brush.Style := bsGradient;
Brush.Color := clBlack;
Brush.GradientSecondColor := clWhite;
Rectangle(50, 50, 250, 250);
end.
Собака - <span>лучший друг человека.</span>
<span>В этом году блыла холодная зима.</span>
<span>Зачем ты это сделал?</span>
<span>Дети слушали сказку кот в сапогах.</span>
<em><span> * * *</span></em>
<span>Кто много читает, тот много и знает.</span>