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.
Программа считает число нулей стоящих на четных местах в строке, считая первый элемент строки нечетным.
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.