ВОТ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
Cls
rem a
let sum=0
let sred=0
let n=0
let i=1
input "n=";n
for i=1 to n step 1
input b
sum=sum+b
next n
sred=sum/n
print "Sred = ";sred
end
Var S, P, a : real;
begin
write('Введите значение а: ');
readln(a);
S := a * a;
P := 4 * a;
writeln('S = ', S, 'P = ', P);
end.
Ответ:
N = int(input())
count = 0
for i in range(N):
a = int(input())
if a % 4 == 0 and a % 7 != 0:
count+=1
print(count)
Объяснение:
Я не совсем понял, вводится ли вся последовательность чисел в одну строку, или же по одному.
Поэтому написал программу для второго варианта.
Но если понадобиться обработка всего потока в строке, то вот:
N = int(input())
A = [int(s) for s in input().split() if (int(s)%4==0 and int(s)%7!=0)]
print(len(A))