На крыше дома обитало 10 семей ласточек. В первой семье находилась одна ласточка, во второй - 4, в третьей - 9

Подсчет количества ласточек и вывод номеров семей, где количество ласточек делится на 4

Объяснение: Для решения этой задачи, нам нужно сложить количество ласточек в каждой семье. Для этого создадим массив переменных "L", где индексы элементов массива будут соответствовать номерам семей ласточек. Затем мы будем заполнять этот массив значениями, в соответствии с условием задачи. После того как массив будет заполнен, мы можем перебрать его элементы и проверить, делится ли количество ласточек на 4. Если да, то выводим номер семьи на экран.

Пример использования:

Задача: На крыше дома обитало 10 семей ласточек. В первой семье находилась одна ласточка, во второй - 4, в третьей - 9 и так далее. Рассчитайте общее количество ласточек. Выведите на экран номера семей, где количество ласточек делится на 4.

Программа lastochka;  

  var      

    L: array[1..10] of Integer;      

    I: Integer;  

    S: Integer;

  begin     

    S := 0;

    for I := 1 to 10 do begin

      L[I] := I*I;

      S := S + L[I];

      writeln('L[', I, '] = ', L[I]);

    end;

    writeln('S = ', S);

    

    for I := 1 to 10 do begin

      if L[I] mod 4 = 0 then

        writeln('I = ', I);

    end;

  end.

Совет: Чтобы лучше понять этот код, вы должны быть знакомы с массивами и циклами в языке Pascal. Разберитесь с операцией `%` (операция взятия остатка от деления) и какие значения приведут к тому, что условие `L[I] mod 4 = 0` будет истинным.

Упражнение: Измените программу таким образом, чтобы количество ласточек в каждой семье запрашивалось у пользователя. Затем рассчитайте общее количество ласточек и выведите на экран номера семей, где количество ласточек делится на 4.