Код
program test;
uses crt;
const
k=7;
var
g : file of integer;
n, c, i, s, m : integer;
begin
clrscr;
c:=0;
assign(g,'file1.txt');
rewrite(g);
writeln('Enter components: ');
for i:=1 to k do
begin
readln(s);
write(g, s)
end;
close(g);
reset(g);
while not eof(g) do
begin
read(g,n);
if n mod 2 = 0 then
m:=n div 2;
if odd(m) then
inc(c);
end;
writeln;
writeln('Result: ');
writeln(c);
readln;
end.
Вроде бы все OK, но работает почему-то через раз.
К примеру вводим последовательность 6777777 и видим результат 7, а должен быть 1
Вводим 1111168 получаем 1, тут все OK
Помогите разобраться пожалуйста!