Цитата:
Сообщение от RadMan
О простите, Паскаль.............
|
Тогда - пожалуйста. Не уверен, правда, что Вашему преподавателю понравится такой способ (через вспомогательный файл), но задачу эта программа решает. Естественно, пути к файлам можете прописать свои:
Код:
VAR
f1,f2,f3:TEXT;
N,L:Byte;
S:String;
C:Char;
BEGIN
Assign(f1,'D:\Name1');
ReSet(f1);
Assign(f3,'D:\Name3');
ReWrite(f3);
Repeat
Repeat
Read(f1,C);
If C<>' ' then Write(f3,C) else WriteLn(f3);
Until (C=' ') or (EoLn(f1)) or Eof(f1);
Until Eof(f1);
Close(f1);
Close(f3);
Write('N= ');
ReadLn(N);
Assign(f2,'D:\Name2');
ReWrite(f2);
ReSet(f3);
ReadLn(f3,S);
Write(f2,S);
Repeat
L:=Length(S);
Repeat
ReadLn(f3,S);
L:=L+Length(S)+1;
If L<=N then Write(f2,' '+S);
Until (L>N) or (EoF(f3));
If (not EoF(f3)) then
begin
WriteLn(f2);
Write(f2,S);
end;
Until EoF(f3);
Close(f3);
Erase(f3);
Close(f2);
END.