Question

Введите с клавиатуры 8 положительных целых чисел. Определите, сколько изних делится на 3 и оканчивается на 4. Программа должна вывести одно число:количество чисел, кратных 3 и оканчивающихся на 4.

Answer 1

Var b,I:integer;
a:array [1..8] of integer;
begin
writeln('введите числа');
for I:=1 to 8 do
read(a[I]);
b:=0;
for I:=1 to 8 do
if (a[I]mod3=0) and
(a[I]mod10=4) then
b:=b+1;
writeln(b);
readln;
end.

Answer 2

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

Вот пример решения на языке Python:

count = 0

for i in range(8):
    num = int(input("Введите целое положительное число: "))
    if num % 3 == 0 and num % 10 == 4:
        count += 1

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

В данном примере используется цикл `for`, который выполняется 8 раз, так как мы ожидаем ввода 8 чисел от пользователя. В каждой итерации цикла мы принимаем число от пользователя с помощью функции `input` и преобразуем его в целое число с помощью функции `int`. Затем мы проверяем, делится ли число на 3 и оканчивается ли оно на 4. Если оба условия выполняются, мы увеличиваем счетчик `count` на 1.

В конце программы выводится количество чисел, кратных 3 и оканчивающихся на 4.

Вы можете запустить эту программу на своем компьютере, скопировав код в среду разработки и запустив его.