Developing.ru

Код: Выделить всё

const
  digits:set of char = ['0'..'9'];
var
  fi,fo:text;
  ch:char;
  prev,curr,count:integer;

function getnum(var x:integer):boolean;
var
  _ch:char absolute ch;
begin
  getnum:=false;
  x:=0;
  while not (eof(fi) or (_ch in digits)) do read(fi,_ch);
  if _ch in digits then begin
    while (_ch in digits) and not eof(fi) do begin
      x:=x*10+ord(_ch)-ord('0');
      read(fi,_ch);
    end;
    getnum:=true;
    writeln('in',x);
    _ch:=#0;
  end
end;

begin
  ch:=#0;
  assign(fi,'c:\inp.txt');
  reset(fi);
  assign(fo,'c:\outp.txt');
  rewrite(fo);
  if getnum(prev) then begin {берем первое число из файла}
    count:=1; {оно одно (пока)}
    while getnum(curr) do begin  {пока еще берутся числа из файла, берем}
      if curr=prev then inc(count) else begin  {если оно такое же, то увел. счетчик}
        write(fo,count,',');  {а если нет, то записываем результат и}
        prev:=curr;    {начинаем новый подсчет}
        count:=1;  {снова с единицы}
      end;
    end;
    write(fo,count);  {если числа больше не берутся, записываем последний результат}
  end;
  close(fi);
  close(fo);
end.