Попробуй:
("А" одно из чисел последовательности, а Q кол-во нулей)
Begin
For i:=1 to n do
Read(A);
If A=0 then inc(Q);
Write(Q);
End.
Решение во вложении
------------------------------------
Чуть кривовато, может, но, вроде, понятно должно быть.
1) PowerBank может быть сломан, бракован. 2) проверь usb штекер, проверь разъём для usb, они могут быть сломаны. 3) проверь заряжен ли PowerBank может быть просто он не заряжен?
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var d:=ReadReal('d=');
var c:=ArrGen(ReadInteger('n='),i->i*i+d*Sqrt(i));
c.Println
end.
<u>Пример</u>
d= 2.183
n= 10
0 3.183 7.08722820666047 12.7810669129229 20.366 29.881336394882 41.3472361084957 54.775675112054 70.1744564133209 87.549