Question

Напишите программу которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. Программа получает на вход целые числа, количество введеных чисел неизвестно, последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести два числа:длину последовательности и количество нечетных чисел, кратных 3 ​

Answer 1

Ответ:

var

a, z, x: integer;

begin

z:=0;

x:=0;

read(a);

while a <> 0 do

begin

if (a mod 3 = 0) and (a mod 2 <> 0)

then

z := z + 1 ;

x:=x+1;

read(a);

end;

writeln(x,' ', z);

end.

Answer 2

// PascalABC.NET

begin

 var (n, k) := (0, 0);

 var a: integer;

 repeat

   a := ReadInteger;

   if a <> 0 then

   begin

     n += 1;

     if a.IsOdd and (a mod 3 = 0) then

       k += 1

   end

 until a = 0;

 Print(n, k)

end.

Answer 3

Вот пример программы на языке Python, которая решает данную задачу: ```python count = 0 # переменная для подсчета количества нечетных чисел, кратных 3 sequence_length = 0 # переменная для подсчета длины последовательности while True: num = int(input("Введите число: ")) if num == 0: break sequence_length += 1 if num % 2 != 0 and num % 3 == 0: count += 1 print("Длина последовательности:", sequence_length) print("Количество нечетных чисел, кратных 3:", count) ``` Программа работает следующим образом: 1. Инициализируются две переменные: `count` для подсчета количества нечетных чисел, кратных 3, и `sequence_length` для подсчета длины последовательности. 2. В цикле `while` пользователю предлагается вводить числа. Если введенное число равно 0, цикл прерывается. 3. При каждой итерации цикла увеличивается `sequence_length` на 1. 4. Если введенное число нечетное и кратно 3, увеличивается `count` на 1. 5. После выхода из цикла выводятся значения `sequence_length` и `count`. Программа будет продолжать запрашивать числа до тех пор, пока не будет введено число 0. После этого она выведет длину последовательности и количество нечетных чисел, кратных 3. **Примечание:** В данном примере предполагается, что пользователь будет вводить числа в консоли. Если вы хотите использовать другой способ ввода/вывода, вам может потребоваться изменить соответствующую часть программы.