Question

Дана последовательность чисел, заканчивающаяся нулем. Определить количество чисел не оканчивающихся на 2 и кратных 3. Прошу расписать всё подробно и понятно в Pascal.​

Answer 1

===== PascalABC.NET =====

begin

 ReadSeqIntegerWhile(p -> p <> 0).  // читать последовательность

   Where(p -> (p mod 3 = 0) and (Abs(p) mod 10 <> 2)). // условие отбора

   Count.  // посчитать, сколько отобралось

   Println  // вывести результат

end.

Answer 2

Код на Pascal для решения данной задачи:

arduinoCopy code
program CountNumbers;

var
  num, count: integer;

begin
  count := 0;
  readln(num);
  
  while num <> 0 do
  begin
    if (num mod 10 <> 2) and (num mod 3 = 0) then
      count := count + 1;
    readln(num);
  end;
  
  writeln('Количество чисел не оканчивающихся на 2 и кратных 3: ', count);
  readln;
end.

Описание решения:

1. Объявляем переменные num (для хранения числа) и count (для хранения количества чисел, удовлетворяющих условию).
2. Инициализируем count нулем.
3. Считываем первое число в последовательности с помощью readln(num).
4. Запускаем цикл while, который будет выполняться до тех пор, пока считанное число num не будет равно нулю.
5. Внутри цикла проверяем условие, что число не оканчивается на 2 и кратно 3-м, используя операторы mod для получения остатков от деления на 10 и на 3 соответственно. Если условие выполняется, то увеличиваем значение count на единицу.
6. Считываем следующее число в последовательности с помощью readln(num).
7. После завершения цикла выводим на экран количество чисел, удовлетворяющих условию.
8. Завершаем программу с помощью readln.