Question

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа Напишите школьный длинный вариант

Answer 1

Var

  size: integer;

  counter: integer;

  mas: array of integer;

   

Begin  

  Write('Введите количество чисел в последовательности: ');

  Readln(size);

   

  if (size > 0) then

  begin

     Writeln();

     SetLength(mas, size);

     

     for var i := 0 to size - 1 do

     begin

        Write('Введите ', i + 1, ' число: ');

        Readln(mas[i]);

         

        if ((mas[i] mod 3 = 0) and (mas[i] mod 10 = 2)) then

           counter := counter + 1;

     end;

     

     Writeln();

     Writeln('Ответ: ', counter);

  end

   

  else

     Writeln('Количество чисел должно быть больше нуля!');

   

End.

Answer 2

Школьный длинный вариант программы будет выглядеть следующим образом:

1. Начинаем с объявления переменной count и присваиваем ей значение 0. Переменная count будет использоваться для подсчета количества чисел, удовлетворяющих условию.

2. Считываем количество чисел в последовательности с помощью функции input() и присваиваем это значение переменной n.

3. Используем цикл for для считывания самих чисел. Цикл будет проходить от 1 до n+1, так как нужно включить входное количество самих чисел.

4. Внутри цикла пишем следующую логику:
1) Считываем число num с помощью функции input().
2) Проверяем, делится ли число num на 3 без остатка и оканчивается ли оно на 2. Если условие выполняется, то увеличиваем значение count на 1.
3) Переходим к следующей итерации цикла.

5. После завершения цикла выводим значение переменной count, которая содержит количество чисел, удовлетворяющих условию.

Пример кода на языке Python:

count = 0
n = int(input("Введите количество чисел в последовательности: "))

for i in range(1, n+1):
num = int(input("Введите число: "))
if num % 3 == 0 and num % 10 == 2:
count += 1

print("Количество чисел, кратных 3 и оканчивающихся на 2: ", count)