1) 265 | 16
256 |-----
------| 16 | 16 265 (10cc) =109(16cc) =1 0000 1001 (2cc) =411 (8cc)
9 16|----
---- | 1
0
2) 111010001 (2cc) =2^8+2^7+2^6+2^4+2^0=465 (10cc)
1461 (8cc) =1*8^3+4*8^2+6*8+1=817 (10cc)
9D =9*16+13 =157 (10cc)
3) 1 001 101 110 + проверка: 10 111 010 101 -
1101 100 111 1 001 101 110
----------------------- ---------------------
10 111 010 101 1 101 100 111
4) 110 001 100 -
1 000 111 проверка: 101 000 101 +
------------------------ 1 000 111
101 000 101 ---------------
110 001 100
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.
Var
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.