Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв

@Наталья :) · Регистрация: 21.06.2012

Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв.

@CodeR · 23.06.2012, 07:57

Pascal

Var f:text;
    s,s1:string;
    i:integer;
Begin
    Assign(f,'a.txt');Reset(f);
    i:=0;
    While not Eof(f) do
     Begin
      readln(f,s);
      s:=s+' ';
      While Pos(' ',s)<>0 do
       Begin
        s1:=Copy(s,1,Pos(' ',s)-1);
        Delete(s,1,Pos(' ',s));
        if Length(s1)>4 then 
         Begin
          inc(i);
          write(s1:12);
          if i=2 then 
           Begin
            writeln;
            i:=0;
           End;
         End;
        End;
       End;
      Close(f);
      readln;
 End.

Файл должен быть предварительно создан в папке с прогой...

@Наталья :) 0 / 0 / 0 Регистрация: 21.06.2012 Сообщений: 27
		1
	Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв 21.06.2012, 22:21. Показов 1420. Ответов 1 Метки нет (Все метки) Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв. 0

Опции темы

Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв

Решение