Я считаю, что даны последовательные вершины четырехугольника, если нет - тогда придется немного поперебирать случаи.
Четырехугольник - ромб, если его диагонали перпендикулярны и середины диагоналей совпадают.
Программа
var xa, ya, xb, yb, xc, yc, xd, yd: integer;
var perp, center: boolean;
begin
read(xa, ya, xb, yb, xc, yc, xd, yd);
perp := (xa - xc) * (xb - xd) + (ya - yc) * (yb - yd) = 0;
center := (xa + xc = xb + xd) and (ya + yc = yb + yd);
if perp and center then
writeln('Rhombus')
else
writeln('NOT rhombus')
end.
Пример ввода:
-1 2
-2 -1
1 -2
2 1
Пример вывода:
Rhombus
А"-192, "Б"-193, "В"-194 и т.д.
Переводим двоичніе числа в десятичные:
11010010(2)=2^7+2^6+2^4+2^1=128+64+16+2=210(10) - буква "С";
11001100(2)=2^7+2^6+2^3+2^2=128+64+8+4=204(10) - буква "Л";
11001111(2)=2^7+2^6+2^3+2^2+2^1+2^0=128+64+8+4+2+1=207(10) - буква "О";
11010011(2)=2^7+2^6+2^4+2^1+2^0=128+64+16+2+1=211(10) - буква "Т".
ответ: слово "СЛОТ"