Вывести на экран строки из файла,длинна которых больше пяти

@Капитоха · Регистрация: 23.12.2011

Дан текстовый файл,напечатать в него текст и вывести на экран строки,длинна которых больше пяти символов

@qnak · 19.03.2012, 17:50

Pascal

var f,fo:text;k:integer; s:string;
begin
      assign(f, 'H:\inp1.txt');
  assign(fo, 'H:\out1.txt');
  rewrite(fo); reset(f);
   while not eof(f) do begin
readln(f,s); if length(s) >5 then writeln(s) end;
    close(f);
    close(fo);
  end.

@Капитоха 0 / 0 / 0 Регистрация: 23.12.2011 Сообщений: 24
		1
	Вывести на экран строки из файла,длинна которых больше пяти 19.03.2012, 15:21. Показов 1463. Ответов 1 Метки нет (Все метки) Дан текстовый файл,напечатать в него текст и вывести на экран строки,длинна которых больше пяти символов __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Вывести на экран строки из файла,длинна которых больше пяти

Решение