Цитата:
Сообщение от NAt
Организовать текстовый файл, . Оставив в файле только буквы. (создавая новый дополнительный файл).
подскажите пожалуйста.
|
И в чем проблемы? Решительно не вижу:
Код:
Var
f1,f2:Text;
Lit:Set of Char;
C:Char;
Begin
Lit:=['a'..'z']+['A'..'Z']+['а'..'я']+['А'..'Я'];
Assign(f1,'{здесь ввести полное имя входного файла, каковой предварительно создать}');
Reset(f1);
Assign(f2,'{здесь ввести полное имя выходного файла}');
Rewrite(f2);
Repeat
Read(f1,C);
If (C in Lit) then Write(f2,C);
Until EoF(f1);
Close(f1);
Close(f2);
End.