C h u k a l o v a
68 104 117 107 97 108 111 118 97
1000100 1101000 1110101 1101011 1100001 1101100 1101111 1110110 <span>1100001</span>
Нет, слабоват для World of Tanks
Type Point=record
x: integer;
y: integer;
end;
var p1, p2, p3, p4 : Point;
function length(p1, p2 : Point) : real;
begin
length := sqrt(sqr(p1.x - p2.x) + sqr(p1.y - p2.y));
end;
Begin
readln(p1.x, p1.y);
readln(p2.x, p2.y);
readln(p3.x, p3.y);
readln(p4.x, p4.y);
if (length(p1, p2) = length (p3, p4)) and (length(p3, p2) = length (p1, p4)) then
writeln('P = ', abs(2 * (length(p1, p2) + length(p3, p2)) ))
else writeln('No');
End.
Для вывода данных в виде таблицы, очень похожую на таблицу в екселе
Определим глубину кодирования i=I/М, где I- объем изображения (бит), M - количество пикселей.
i=(30*1024*8)/(300*200)= 4 бита
Количество цветов получаем из формулы: N=2^i
N=2^4= 16
Ответ: 16 цветов