// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Println('Введите последовательность целых чисел через пробел.');
var n := ReadSeqIntegerWhile('Последним введите число нoль. ->', t -> t <> 0).
Pairwise.Where(t -> t[0] * t[1] < 0).Count;
Println($'Последовательность меняет знак {n} раз(а).')
end.
Допустим в январе 31 день. Предположим что осадки это целые числа и число 0 свидетельствует об отсутствии осадков.
Вот функция возвращающая дни без осадков
<span><span>C#Выделить код</span><span>1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<span> private int[] NetOsadkov(ref int[]Pogoda)
{
int[] error = {-1};
int[] PogodaBezOsadkov = { 0 };
List<int> osadki = new List<int>();
int NetOsadkov = 0;
if (Pogoda.Length < 31)
{
return error;
}
for (int i = 0; i < Pogoda.Length;i++ )
{
if (Pogoda[i] == NetOsadkov)
{
osadki.Add(i+1);
}
}
PogodaBezOsadkov = osadki.ToArray();
return PogodaBezOsadkov;
}</span></span></span>Проверяем..
<span><span>C#Выделить код</span><span>1
2
3
4
5
6
7
8
<span> int[] JanuaryWeather = {123,4535,756,45,0,67,22,3453,765,35,456,35,0,35,45,76,6,567,35,6543,0,35,456,58,467,4657,458,48,0,67,745};
string result = string.Empty;
foreach (int val in NetOsadkov(ref JanuaryWeather))
{
result += val.ToString() + ',';
}
MessageBox.Show(result+" "+"Января была погода без осадков")<span>;</span></span></span></span>
Function func1(a As Double) As Double
Dim i As Integer, b As Double
i = 1 - Sgn((Abs(a) - a) / 2)
b = Sqr(a * i)
a = a * 2 + i * (b - 2 * a)
func1 = a
End Function
Ответ:
1001111001₂ = 1*2⁰ + 0*2¹ + 0*2² + 1*2³ + 1*2⁴ + 1*2⁵ + 1*2⁶ + 0*2⁷ + 0*2⁸ + 1*2⁹ = 633₁₀
11100001011100011₂ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ + 0*2¹⁰ + 0*2¹¹ + 0*2¹² + 0*2¹³ + 1*2¹⁴ + 1*2¹⁵ + 1*2¹⁶ = 115427₁₀
115427₁₀ = 3*16⁰ + 14*16¹ + 2*16² + 12*16³ + 1*16⁴ = 1C2E3₁₆
B5DE0₁₆ = 0*16⁰ + E*16¹ + D*16² + 5*16³ + B*16⁴ = 744928₁₀
744928₁₀ = 0*8⁰ + 4*8¹ + 7*8² + 6*8³ + 5*8⁴ + 6*8⁵ + 2*8⁶ = 2656740₈
1361674₈ = 4*8⁰ + 7*8¹ + 6*8² + 1*8³ + 6*8⁴ + 3*8⁵ + 1*8⁶ = 385980₁₀
385980₁₀ = 12*16⁰ + 11*16¹ + 3*16² + 14*16³ + 5*16⁴ = 5E3BC₁₆
112₃ = 2*3⁰ + 1*3¹ + 1*3² = 14₁₀
15₁₀ = 0*3⁰ + 2*3¹ + 1*3² = 120₃
16₁₀ = 1*3⁰ + 2*3¹ + 1*3² = 121₃
17₁₀ = 2*3⁰ + 2*3¹ + 1*3² = 122₃
18₁₀ = 0*3⁰ + 0*3¹ + 2*3² = 200₃
19₁₀ = 1*3⁰ + 0*3¹ + 2*3² = 201₃
Объяснение:
в 4 задании ошибка: 5-ная система имеет цифры от 0 до 4, а цифра 5 не катит для нее. посчитал на всякий случай в 6-ричной
125₆ = 5*6⁰ + 2*6¹ + 1*6² = 53₁₀