Question

В последовательности из девяти элементов найдите количество элементов кратные 19 и 3. Составьте программу (Паскаль)

Answer 1

var

x, count, i : integer;

begin

count := 0;

for i := 1 to 9 do

   begin

   readln(x);

   if (x mod 19 = 0) and (x mod 3 = 0) then

       count := count + 1;

   end;

writeln(count);

end.

Answer 2

Для того чтобы найти количество элементов в последовательности из девяти элементов, которые кратны 19 и 3, нужно пройти по каждому элементу последовательности и проверить условие кратности. Вот пример программы на языке Pascal:

program CountMultiples;

var
  sequence: array[1..9] of Integer; // Заданная последовательность
  countMultiples: Integer; // Счетчик элементов, кратных 19 и 3
  i: Integer; // Индекс для цикла

begin
  // Инициализация последовательности (предположим, что у вас уже есть значения)
  sequence[1] := 10;
  sequence[2] := 15;
  sequence[3] := 19;
  sequence[4] := 27;
  sequence[5] := 30;
  sequence[6] := 38;
  sequence[7] := 42;
  sequence[8] := 57;
  sequence[9] := 63;

// Инициализация счетчика
  countMultiples := 0;

// Проверка каждого элемента на кратность 19 и 3
  for i := 1 to 9 do
  begin
    if (sequence[i] mod 19 = 0) and (sequence[i] mod 3 = 0) then
      countMultiples := countMultiples + 1;
  end;

// Вывод результата
  writeln('Количество элементов, кратных 19 и 3: ', countMultiples);
end.

В данном примере программа создает массив из девяти элементов и затем проходит по каждому элементу, используя цикл `for`. Для проверки кратности используется оператор `mod`, который возвращает остаток от деления. Если остаток от деления на 19 и 3 равен нулю, то элемент кратен и увеличивается счетчик `countMultiples`. По завершении цикла программа выводит количество элементов, удовлетворяющих условию.