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

Программа на языке PASKAL для решения данной задачи может выглядеть следующим образом:

pascal

program lastochka;

var

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

  i, S: integer;

begin

  S := 0;



  for i := 1 to 10 do

  begin

    L[i] := i * i; // Количество ласточек в каждой семье равно квадрату номера семьи

    writeln("L[", i, "] = ", L[i]);

    S := S + L[i];

  end;



  writeln("S = ", S);



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



  for i := 1 to 10 do

  begin

    if L[i] mod 4 = 0 then

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

  end;

end.

Давайте разберем пошагово, как работает эта программа:

1. Объявляем переменные `L` - массив для хранения количества ласточек в каждой семье и `S` - переменную для подсчета общего количества ласточек.

2. Инициализируем переменную `S` нулем.

3. Запускаем цикл `for` для `i` от 1 до 10.

4. Внутри цикла присваиваем элементу `L[i]` значение квадрата номера семьи `i`, так как количество ласточек в каждой семье равно квадрату ее номера.

5. Выводим на экран информацию о количестве ласточек в каждой семье с помощью оператора `writeln`.

6. Добавляем значение `L[i]` к переменной `S` для подсчета общего количества ласточек.

7. После завершения первого цикла выводим на экран значение переменной `S`.

8. Выводим информацию о семьях, в которых количество ласточек кратно 4.

9. Запускаем второй цикл `for` для `i` от 1 до 10.

10. Внутри этого цикла проверяем, является ли значение `L[i]` кратным 4 с помощью оператора `mod`, который возвращает остаток от деления. Если остаток равен 0, то количество ласточек в семье `i` кратно 4, и мы выводим информацию о такой семье на экран.

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