Question

Привет всем! Помогите, пожалуйста, с задачей) Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом.

Answer 1

//Pascal ABC.NET Версия 2.2 Сборка 790
var i,k,n,a,b:integer;
begin;
readln(n);
i:=1;
repeat
if i mod 2<>0 then readln(a) else readln(b);
if b=a then inc(k);
inc(i);
until n+1=i;
writeln('Result:',k);
end.

Пример ввода:
3 1 1 2
Пример вывода:
Result:1

Answer 2

Привет! Я рад помочь с задачей!

Чтобы решить эту задачу, нам потребуется ввести N чисел и подсчитать количество случаев, когда два числа идут друг за другом и равны.

Давайте разберемся с алгоритмом решения:

1. Сначала мы создаем переменную count и инициализируем ее нулем. Она будет использоваться для подсчета количества случаев равенства двух чисел, идущих друг за другом.

2. Затем мы вводим число N - количество чисел, которые мы хотим ввести.

3. Далее мы создаем цикл, который будет выполняться N раз. В каждой итерации цикла мы будем вводить число и проверять, равно ли оно предыдущему введенному числу.

4. Если текущее число равно предыдущему числу, мы увеличиваем переменную count на единицу.

5. После завершения цикла мы выводим значение переменной count, которая содержит количество случаев равенства двух чисел, идущих друг за другом.

Давайте реализуем этот алгоритм на языке Python:

count = 0
N = int(input("Введите количество чисел: "))

prev_num = int(input("Введите число: "))
for i in range(1, N):
    curr_num = int(input("Введите число: "))
    if curr_num == prev_num:
        count += 1
    prev_num = curr_num

print("Количество случаев равенства двух чисел, идущих друг за другом:", count)

Теперь вы можете запустить этот код, ввести количество чисел и сами числа, а затем получить количество случаев равенства двух чисел, идущих друг за другом.

Надеюсь, это помогло! Если у вас возникли еще вопросы, не стесняйтесь задавать!