Файловый тип данных (Pascal)

[ksenija15reg]

В произвольной непустой последовательности чисел, хранящейся в файле F, подсчитать количество нечетных чисел в каждой строке

[Stilet]

Файл что текстовый? Пример файла в студию.

[ksenija15reg]

Сообщение от Stilet

Файл что текстовый? Пример файла в студию.

да,текстовый. и там не важно, можно даже с экрана ввести

[ZX Spectrum-128]

Файл

1 2 3
1 2 3 4 5 6 7 8

1
2 2 2 2 3
2 2

var
  f:text;
  k,i,a : integer;
begin
  i:=1;
  assign(f,'123.txt');
  reset(f);
  while not eof(f) do
    begin
      k:=0;
      write('В ',i,'-й строке ');
      while not eoln(f) do
        begin
          read(f,a);
          if odd(a) then
            k:=k+1;
        end;
      readln(f);
      write(k,' нечетных чисел.');
      writeln;
      i:=i+1;
    end;
  close(f);
end.

Вариант для ввода с клавиатуры:
данные вводятся
число пробел... число enter
...
ctrl+Z

var
  k,i,a : integer;
begin
  i:=1;
  while not eof(input) do
    begin
      k:=0;
      write('В ',i,'-й строке ');
      while not eoln(input) do
        begin
          read(input,a);
          if odd(a) then
            k:=k+1;
        end;
      readln(input);
      write(k,' нечетных чисел.');
      writeln;
      i:=i+1;
    end;
end.