1. Сколько семей ласточек обитало на крыше дома? Первая семья имела одну ласточку, вторая - 4, третья - 9 и так далее

Название: Решение задачи о количестве ласточек на крыше дома

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

В программе есть несколько незаполненных операторов. В первом цикле, где идет перебор семей ласточек, необходимо указать диапазон значений от 1 до заданного числа семей.

Далее, внутри цикла нужно добавить оператор чтения количества ласточек в каждой семье и присвоения значения переменной l[i].

После цикла перебора семей ласточек, нужно добавить оператор вывода общего количества ласточек, которое будет равно сумме значений всех элементов массива l[].

Затем, следующий цикл for используется для проверки, у каких семей количество ласточек кратно заданному числу. Внутри цикла используется условный оператор if, который проверяет условие кратности и выводит номера семей, у которых количество ласточек кратно заданному числу.

Например:

pascal

program lastochka;

var l:array[1..10] of Integer; // установлен размер массива

    s, i: Integer;

begin

  for i:=1 to 10 do // перебор семей ласточек от 1 до 10

  begin

    writeln("Введите количество ласточек в семье ", i);

    readln(l[i]); // чтение количества ласточек в каждой семье

  end;

  

  s := 0; // переменная для суммы количества ласточек

  

  for i := 1 to 10 do // перебор семей ласточек от 1 до 10

  begin

    s := s + l[i]; // суммирование количества ласточек

  end;

  

  writeln("Общее количество ласточек: ", s); // вывод общего количества ласточек

  

  writeln("Семьи, у которых количество ласточек кратно заданному числу: ");

  for i := 1 to 10 do // перебор семей ласточек от 1 до 10

  begin

    if l[i] mod заданное_число = 0 then // проверка кратности

      writeln("Семья ", i);

  end;

end.

Совет: При программировании не забудьте указать значение заданного числа для проверки кратности и установить правильный размер массива l[].

Упражнение: Введите количество ласточек в каждой из пяти семей и установите заданное число равным 3. Выведите общее количество ласточек и номера семей, у которых количество ласточек кратно заданному числу.