Дан некоторый файл, компоненты которого являются целыми числами. подсчитать...

Question

Дан некоторый файл, компоненты которого являются целыми числами. подсчитать количествотнулей, стоящих на счетных местах

Answer 1

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); 
end.