x - бронебойных
2x - трассирующих
2x+6 - обычных
Общее количество патронов:
x+2x+2x+6 = 5x+6
log(2)[1/2x/(5x+6)] = log(2)[(5x+6)/2x] = 2
(5x+6)/2x = 2^2
5x+6 = 8x
3x = 6
x = 2
5x+6 = 5*2+6 = 16
Ответ: 16,2
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.
14(10)=1110(2)
14|0
7 |1
3 |1
1 |1
0 |
14(10)=16(8)
14|6
1 |1
0 |
14(10)=E(16)
14| 14(Е)
0 |
Var x,a,b,c:integer;
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.