Автор: asdfg

asdfg — Thu, 19 Aug 2021 21:41:32 +0000

Первый вариант едва ли соответствует заданию , а во втором куда-то теряются начальные строки из исходного файла.

Могу такой предложить :

var
  k, i, cx, sx: integer;
  s, st, st1, so: string;
  f: text; 

begin
  write('K =');
  readln(k);
  write('Имя исходного файла:');
  readln(s);
  assign(f, s); 
  reset(f);
  while not eof(f) do
  begin
    readln(f, st);
    if st <> '' then begin
      for i := 1 to length(st) do
      begin
        st1 := st1 + st[i];
        inc(cx);
        if (st[i] = ' ')
        then begin
          so := copy(st1, 1, cx - 1);
          sx := cx;
        end;
        if cx = k then 
        begin
          writeln(so);//writeln(f_out,so);
          so := '';
          cx := cx - sx;
          st1 := copy(st1, sx + 1, cx);
        end;
      end;
      st1 := st1 + ' ';
      inc(cx);
    end
    else
    begin
      writeln(st1);//writeln(f_out,st1);
      st1 := '';
      writeln;// writeln(f_out);
      cx := 0;
    end;
  end;
end.

var

k, i, cx, sx: integer;

s, st, st1, so: string;

f: text;

begin

write('K =');

readln(k);

write('Имя исходного файла:');

readln(s);

assign(f, s);

reset(f);

while not eof(f) do

begin

readln(f, st);

if st <> '' then begin

for i := 1 to length(st) do

begin

st1 := st1 + st[i];

inc(cx);

if (st[i] = ' ')

then begin

so := copy(st1, 1, cx - 1);

sx := cx;

end;

if cx = k then

begin

writeln(so);//writeln(f_out,so);

so := '';

cx := cx - sx;

st1 := copy(st1, sx + 1, cx);

end;

st1 := st1 + ' ';

inc(cx);

end

else

begin

writeln(st1);//writeln(f_out,st1);

st1 := '';

writeln;// writeln(f_out);

cx := 0;

end;

end.

Комментарии: Решаем задачи Абрамян на Паскале. Text38

Автор: asdfg