3Д изображения имеют большую реалестичность
ешё картина весенний сад
Var
i, b: integer;
m: array [1..10] of integer;
Begin.
For i:= 1 to 10 do
Readln (m[i],b);
S:= 0
If (m[i] div 10 = b) or ( m[i] mod 10 = b) then
S:=s+1
ну и концовку
Write (S);
End.
<h2>Пример 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 0 + 4 + 2 = 32 + 4 + 2 = 38₁₀
<h2>Пример 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 128 + 64 + 0 + 8 + 4 + 2 + 1 = 207₁₀
<h2>Пример 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 +32 + 0 + 8 + 4 + 2 + 0 = 174₁₀
<h2>Пример 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 127₁₀