На крыше дома обитало 10 семей ласточек. Первая семья имела одну ласточку, вторая — 4, третья — 9 и так
program lastochka;
var
l: array[1..10] of Integer;
i: Integer;
begin
for i := 1 to 10 do
begin
writeln(‘l[‘,i,’]=’,l[i]);
end;
writeln(‘s=’,s);
for i := 1 to 10 do
begin
if (l[i] mod 4 = 0) then
begin
writeln(‘i=’,i);
end;
end;
end.
Разъяснение: Дана задача о количестве ласточек, проживающих на крыше дома. В условии задачи сказано, что первая семья имеет одну ласточку, вторая — 4, третья — 9 и так далее. Для решения этой задачи мы можем использовать массив `l`, состоящий из 10 элементов типа `Integer`, чтобы хранить количество ласточек в каждой семье.
Сначала мы инициализируем массив `l`, присваивая каждому элементу его значение соответствующего количества ласточек в семье. Затем мы выводим на экран значения каждого элемента массива. Если количество ласточек в семье кратно 4, мы выводим номер семьи на экран.
Пример использования: Если в первой семье 1 ласточка, во второй 4, в третьей 9 и так далее, программа выводит:
l[1]=1 l[2]=4 l[3]=9 l[4]=16 l[5]=25 l[6]=36 l[7]=49 l[8]=64 l[9]=81 l[10]=100 i=2 i=3
Программа выводит номера семей, у которых число ласточек кратно 4: 2 и 3.
Совет: Для понимания решения задачи посмотрите, как инициализируется массив `l` и как происходит проверка на кратность 4. Обратите внимание на использование оператора модуля `%` в условии `if (l[i] mod 4 = 0)`.
Упражнение: Попробуйте изменить значения массива `l` и запустите программу снова. Найдите новые номера семей, где число ласточек кратно 4.