Question

Вычислить количество нечетных чисел которые делятся на 3 (программа+блок-схема, ну или хотя б прога)

Answer 1

var

 A: array [1..40] of Integer;

 i, c: Integer;

begin

   Randomize;

   WriteLn ('Массив случайных чисел:');

   for i := 1 to 40 do begin

     A [i] := Random (10);

     Write (IntToStr (A [i]) + ' ');

   end;

   c := 0;

   for i := 1 to 40 do begin

     if (A [i] mod 2  <> 0) and (A [i] mod 3 = 0) then   // первое условие - проверка на нечетность, второе - делимость на 3

     Inc (c);

   end;

   Writeln;

   WriteLn ('Количество нечетных чисел, которые делятся на 3 = ' + IntToStr (c));

end.

Answer 2

Для вычисления количества нечетных чисел, которые делятся на 3 в определенном диапазоне, вы можете использовать следующую программу на Python. Привожу программу и блок-схему.

Программа на Python:

pythonCopy code
# Запрашиваем начало и конец диапазона
начало = int(input("Введите начало диапазона: "))
конец = int(input("Введите конец диапазона: "))

# Инициализируем счетчик
количество_нечетных_делится_на_3 = 0

# Перебираем числа в заданном диапазоне
for число in range(начало, конец + 1):
    if число % 2 != 0 and число % 3 == 0:
        количество_нечетных_делится_на_3 += 1

# Выводим результат
print(f"Количество нечетных чисел, которые делятся на 3: {количество_нечетных_делится_на_3}")

Блок-схема:

luaCopy code
[Начало]
  |
  |-- Введите начало диапазона (начало)
  |-- Введите конец диапазона (конец)
  |
  |-- Инициализируйте счетчик (количество_нечетных_делится_на_3 = 0)
  |
  |-- Для каждого числа в диапазоне от начала до конца (включительно):
  |     |
  |     |-- Если число нечетное И число делится на 3:
  |     |     |-- Увеличьте счетчик на 1
  |     |
  |-- Выведите количество_нечетных_делится_на_3
  |
[Конец]

Эта программа запросит у пользователя начало и конец диапазона, затем переберет все числа в этом диапазоне и увеличит счетчик, если число нечетное и делится на 3. В конце программа выведет количество таких чисел.