2 задача совсем простая.
Sub Devochki
Dim Year1 As Integer, Year2 As Integer
Input "Vvedite 1 god roghdeniya", Year1
Input "Vvedite 2 god roghdeniya", Year2
If Year2 = Year1 Then
_ _ _Print "Vozrast devochek odinakoviy"
ElseIf Year1 > Year2 Then
_ _ _Print "2 devochka starshe 1"
Else
_ _ _Print "1 devochka starshe 2"
End If
End Sub
1) Намного сложнее. Нужно посчитать радиусы R1 и R2 > R1, зная ширину кольца R2 - R1 = A и отношение радиусов B.
Если B = 1, но A не = 0; или A = 0, но B не = 1, то такого не может быть.
Это противоречие.
Иначе. Если B = 1 и A = 0, то R1 = R2, тогда площадь кольца S = 0.
Если B < 1, то R1/R2 = B.
Получаем: R1=R2-A=R2*B, отсюда R2=A/(1-B); R1=R2*B=A*B/(1-B)
Если B > 1, то R2/R1 = B
Получаем R1=R2-A=R2/B, отсюда R2=A/(1-1/B)=A*B/(B-1); R1=R2/B=A/(B-1)
В обоих случаях площадь S = pi*R2^2 - pi*R1^2 = pi*(R2^2 - R1^2)
Sub Kolco
Dim A As Double, B As Double
Dim R1 As Double, R2 As Double, S As Double
Const Pi = 3,141592653589
Input "Vvedite A", A
Input "Vvedite B", B
If ((B = 1) And (A <> 0)) Or ((B <> 1) And (A = 0)) Then
_ _ _Print "Protivorechie"
Else
_ _ _If (B = 1) Or (A = 0) Then
_ _
_ _ _S = 0
_ _ _ElseIf (B < 1) Then
_ _
_ _ _R1 = A*B/(1 - B): R2 = A/(1 - B)
_ _
_ _ _S = Pi*(R2*R2 - R1*R1)
_ _ _Else
_ _
_ _ _R1 = A/(B - 1): R2 = A*B/(B - 1)
_ _
_ _ _S = Pi*(R2*R2 - R1*R1)
_ _ _End If
_ _ _Print "S = " & S
End If
End Sub
Х=
=
y=
=
x+y=58+43=101{10}=145{8}=65{16}
----------------------------------------------------------
111010{2}=1*2+1*2^3+1*2^4+1*2^5=58{10}
101011{2}=1*2^0+1*2^1+1*2^3+1*2^5=43{10}
101{10}=
101|_8_
- 96 12|_8_
-------- -8 1
5 ----
4
101{10}=145{8}
101|_16_
-96 6
-----
5
101{10}=65{16}
Компьютер использует двоичную запись чисел.
40₁₀ = 101000₂
-40₁₀ = -101000₂
51₁₀ = 110011₂
-51₁₀ = -110011₂
25₁₀ = 11001₂
36₁₀ = 100100₂
88₁₀ = 1011000₂
-93₁₀ = -1011101₂
-131₁₀ = -10000011₂
-150₁₀ = -10010110₂
Один бит информации уменьшает неопределенность в два раза.
Cls
input a
b=a>=10 and a<=99
print b