Введите с клавиатуры 8 положительных целых чисел. Определите, сколько из них делятся на 3 и при этом заканчиваются на 4. Программа должна вывести одно число : количество чисел кратных 3 и оканчивающихся на 4
ПРОГРАММА ДЛЯ ПАСКАЛЯ

Для того чтобы решить эту задачу на языке Паскаль, нужно выполнить несколько шагов:

1. Прочитать 8 чисел с клавиатуры.
2. Для каждого числа проверить два условия:
   • Число должно быть кратно 3.
   • Число должно заканчиваться на 4 (то есть последняя цифра числа должна быть равна 4).
3. Подсчитать, сколько чисел удовлетворяют обоим условиям.

Пример программы на языке Паскаль:

pascal
program CheckNumbers;
var
  num, count, i: integer;
begin
  count := 0;  // Переменная для подсчета чисел, которые подходят по условиям
  for i := 1 to 8 do
  begin
    readln(num);  // Чтение числа с клавиатуры
    // Проверяем, кратно ли число 3 и заканчивается ли на 4
    if (num mod 3 = 0) and (num mod 10 = 4) then
      count := count + 1;  // Увеличиваем счетчик, если оба условия выполняются
  end;
  
  writeln(count);  // Выводим результат
end.

Пояснение программы:

1. Переменная num хранит текущее число, которое вводит пользователь.
2. Переменная count используется для подсчета чисел, которые делятся на 3 и заканчиваются на 4.
3. В цикле for выполняется 8 итераций, по одной для каждого числа, которое нужно ввести.
4. Внутри цикла мы проверяем два условия:
   • num mod 3 = 0 — это условие проверяет, делится ли число на 3.
   • num mod 10 = 4 — это условие проверяет, заканчивается ли число на 4 (последняя цифра числа равна 4).
5. Если оба условия выполняются, то увеличиваем счетчик count.
6. После завершения цикла выводим значение count, которое и будет ответом на задачу — количество чисел, которые делятся на 3 и заканчиваются на 4.

Пример работы программы:

Если пользователь введет следующие числа:
12, 24, 34, 44, 54, 64, 74, 84,
то программа выведет:

3

Потому что из этих чисел на 3 делятся и заканчиваются на 4 следующие: 24, 54, 84.