1) 111 101,100 (2cc)=75,4 (8cc)
11 1101, 1000 =3D,8 (16cc)
1 1 1 1 0 1, 1 = 2^5+2^4+2^3+2^2+2^0+2^(-1)=61,5 (10cc)
5 4 3 2 1 0 -1
-------------------------------------------------------------------------------
2) 233,5 (8cc) =10 011 011,101 (2cc)
1001 1011,1010(2cc) = 9B,A (16cc)
2 3 3 , 5 (8cc) = 2*8^2+3*8^1+3*8^0 +5*8^(-1) = 155,625 (10cc)
2 1 0 -1
-----------------------------------------------------------------------------------
3) 46 (10cc)=32+8+4+2=2^5+2^3+2^2+2^1=
=101 110 (2cc) =56 (8cc) =
=10 1110 (2cc) = 2E (16cc)
0, | 5625 *2
1 | 125 *2
0 | 25 *2
0 | 5 *2
1 | 0
0,5625 (10cc) = 0,1001 (2cc) =0,9 (16cc) =
= 0,100 100 (2cc) = 0,44 (8cc)
46,5625 (10cc) =101110,1001 (2сс) =56,44(8сс) = 2Е,9 (16сс)
4) 59,В (16сс) = 101 1001,1011 (2сс) =
=1 011 001,101 100 (2сс) =131,54 (8сс)
5 9, В = 5*16^1 +9*16^0+ 11*16^(-1) = 89,6875 (10cc)
1 0 -1
Среди четырёхугольников, заданных своими сторонами: a1, b1, c1, d1 : a2, b2, c2, d2 : … : a7, b7, c7, d7 найти количество четырё
Azamat-zsn [24]
Const
n=7;
type
V=array[1..n] of real;
var
P:V;
i,k:integer;
a,b,c,d:real;
begin
Writeln('Вводите длины сторон четырехугольника через пробел');
for i:=1 to n do begin
Write(i,': '); Read(a,b,c,d);
P[i]:=a+b+c+d;
end;
k:=0;
for i:=n-1 downto 1 do
if P[i]=P[n] then k:=k+1;
Writeln('Четырехугольников с периметром, как у последнего: ',k)
end.
<u>Пример</u>
Вводите длины сторон четырехугольника через пробел
1: 5 7 3 8
2: 3 7 3 6
3: 5 8 5 2
4: 6 8 4 1.9
5: 8 3 5 9
6: 7 3 7 2
7: 5 5 5 4
Четырехугольников с периметром, как у последнего: 2
1-ум и труд все перетрут
2-без труда не выловишь рыбку из пруда
3-7 раз отмерь 1 раз отрежь
V=M*T*I
I=V/(M*T)
Вот формула, считайте :)