N=int(input())
count=0
while n!=0:
if(n%2==0):
count+=1
n=int(input())
print(count)
только расстояние от начала до строчки после ":" может быть неправильное, вручную писал все таки
1. 0.5 + (a * c) / ( 2 * b * d + 1)
2. SIN(a) + COS(6) + *хз чо за d в [ ]*
3. ((a + b) ^ 2)/ (1 + 2 * d)
Var s,x,sum:real; k:integer;
begin
write('s = ');
readln(s);
write('x = ');
readln(x);
sum:=s; k:=0;
while sum<=2*s do
begin
k:=k+1;
sum:=sum+sum*x/100;
end;
writeln('k = ',k);
end.
Пример:
s = 2000
x = 10
k = 8