ответ: Считываем первое число(n), чтобы определить, до какого момента должен продолжаться цикл. Создаем переменную sum, чтобы хранить найденное количество чисел, удовлетворяющих условию. Запускаем цикл, считываем число, если последняя цифра - 4 (проверяем при получения остатка от деления на 10) и число делится на 6 (проверяем при получения остатка от деления на 6), то добавляем к в переменную sum 1.
n = int(input())
sum = 0
for i in range(0, n):
current = int(input())
if current % 10 == 4 and current % 6 == 0:
sum += 1
print(sum)
Объяснение: n = int(input())
sum = 0
for i in range(0, n):
current = int(input())
if current % 10 == 4 and current % 6 == 0:
sum += 1
print(sum)
program raf105;
var a:array[1..100] of integer;
a1,b,n,i:integer;
begin
writeln('Введите число n');
readln(n);
a1:=1;
writeln('Вводите числа по очереди');
writeln('Чтобы закончить введите 0');
while a1<>0 do
begin
readln(a1);
if ((a1 mod n)=0) and (a1<=100) and (a1<>0)
then
begin
b:= b+1;
a[b]:=a1;
end;
end;
writeln('Числа картные ',n,' и не превышающие 100');
for i:=1 to b do
writeln(a[i]);
end.
Язык программирования PascalABC