Напечатать все строки, состоящие из шести букв

@unknownprog · Регистрация: 10.05.2016

Помогите пожалуйста
Дан текстовый файл , разбитый на строки . Напечатать все строки , состоящие из шести букв .

@bormant · 12.05.2016, 08:42

Открываете файл на чтение. В цикле, пока не конец файла, читаете содержимое текущей строки, если длина строки равна 6, выводите ее. Закрываете файл.

@unknownprog · 12.05.2016, 13:33 **[ТС]**

мне бы код

@ZX Spectrum-128 · 12.05.2016, 13:41

Pascal

assign(f,'data.txt');
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  if length(s)=6 then
   writeln(s);
 end;
close(f);

@unknownprog 0 / 0 / 0 Регистрация: 10.05.2016 Сообщений: 9
		1
	Напечатать все строки, состоящие из шести букв 11.05.2016, 23:42. Показов 473. Ответов 3 Метки нет (Все метки) Помогите пожалуйста Дан текстовый файл , разбитый на строки . Напечатать все строки , состоящие из шести букв . 0

@bormant Модератор 7771 / 4600 / 2824 Регистрация: 22.11.2013 Сообщений: 13,080 Записей в блоге: 1
	12.05.2016, 08:42	2
	Открываете файл на чтение. В цикле, пока не конец файла, читаете содержимое текущей строки, если длина строки равна 6, выводите ее. Закрываете файл. 1

@unknownprog 0 / 0 / 0 Регистрация: 10.05.2016 Сообщений: 9
	12.05.2016, 13:33 [ТС]	3
	мне бы код 0

	12.05.2016, 13:41