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

@Xelinel32 · Регистрация: 19.04.2016

Author24 — интернет-сервис помощи студентам

Дан текстовый файл, разбить на строки. Напечатать все строки, состоящие из шести букв.
P.S. Текстовый файл любой, и любая информация написанная в нём!

@ZX Spectrum-128 · 27.04.2016, 15:14

Pascal

while not eof(f) do
  begin
    readln(f,s);
    if length(s)=6 then
      writeln(s);
  end;

@Xelinel32 0 / 0 / 1 Регистрация: 19.04.2016 Сообщений: 139
		1
	Напечатать все строки, состоящие из шести букв 26.04.2016, 17:04. Показов 1196. Ответов 1 Метки нет (Все метки) Дан текстовый файл, разбить на строки. Напечатать все строки, состоящие из шести букв. P.S. Текстовый файл любой, и любая информация написанная в нём! 0

	27.04.2016, 15:14

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

Решение