PascalABC.NET Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
var t : text; a,k,i : integer; begin assign (t,'File.txt'); reset (t); i := 0; k := 0; While not Eof (t) do begin i := 0; While not Eoln (t) do begin read (t,a); if (a = 0) and (i = 1) then k := k +1; if i = 0 then i := 1 else i := 0; end; readln (t); end; close (t); writeln (k);<span> end.</span>