Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ написание файла

Автор: narkoman 3.06.2004 15:03

Дан текстовый файл. Вывести на экран строку максимальной длины.

Автор: APAL 3.06.2004 23:17

Код
Var
 f : Text;
 St,S : String;
Begin
 s:='';
 Assign(f,ParamStr(1));
 Reset(f);
 While NOT EOF(f) do
 Begin
   Readln(f,St);
   If Lenth(St)>S then s:=St;
 End;
 Close(f);
 Writeln(s);
End.