1. solvetop.com
  2. Информатика
  3. Сколько ласточек живет...

Сколько ласточек живет на крыше дома? Напишите программу на языке PASKAL, чтобы подсчитать общее количество ласточек

  • 70
Сколько ласточек живет на крыше дома? Напишите программу на языке PASKAL, чтобы подсчитать общее количество ласточек и вывести номера семей, где количество ласточек кратно 4.

program lastochka;
var L:ARRAY[1..10] OF 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.

Рекомендуется сохранять верные ответы и всегда делиться с друзьями, ведь они могут тебе ещё пригодиться!

Telegram Whatsapp ВКонтакте
David_3855
65
Программа на языке PASKAL для подсчета количества ласточек на крыше дома и вывода номеров семей, где количество ласточек кратно 4, может выглядеть следующим образом:

pascal

program lastochka;

var

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

  S, I: integer;

begin

  S := 0;   // Инициализация суммы

  for I := 1 to 10 do

  begin

    // Ввод количества ласточек для каждой семьи

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

    readln(L[I]);

    

    // Подсчет общего количества ласточек

    S := S + L[I];

  end;

  

  // Вывод общего количества ласточек

  writeln("Общее количество ласточек на крыше дома: ", S);

  

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

  writeln("Номера семей, где количество ласточек кратно 4:");

  for I := 1 to 10 do

  begin

    if (L[I] mod 4) = 0 then

      writeln(I);

  end;

end.


В данной программе используется массив `L` для хранения количества ласточек в каждой из 10 семей. Переменная `S` инициализируется нулем и используется для подсчета общего количества ласточек на крыше дома.

Для каждой семьи происходит ввод количества ласточек, а затем выполняется подсчет суммы `S`. После этого выводится общее количество ласточек на крыше дома.

Затем происходит проверка каждого элемента массива `L`. Если количество ласточек в семье кратно 4, то выводится номер этой семьи.

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