Цитата:
Сообщение от апельсин
на Pascal
|
Тогда - пожалуйста. Хотя я не очень понял, что требуется "сохранить на диск". Поэтому программа сохраняет исходный файл и в конце добавляет строку с указанием количества согласных букв.
Имена файлов, а также пути к ним поставьте, естественно, свои.
Код:
CONST
Sogl=['Б','В','Г','Д','Ж','З','К','Л','М','Н',
'П','Р','С','Т','Ф','Х','Ц','Ч','Ш','Щ',
'б','в','г','д','ж','з','к','л','м','н',
'п','р','с','т','ф','х','ц','ч','ш','щ'];
VAR
f_in,f_out:Text;
Ch:Char;
N:Word;
BEGIN
Assign(f_in,'D:\txt_in.txt');
ReSet(f_in);
Assign(f_out,'D:\txt_out.txt');
ReWrite(f_out);
N:=0;
Repeat
Read(f_in,Ch);
Write(f_out,Ch);
If (Ch in Sogl) then Inc(N);
Until Eof(f_in);
Close(f_in);
Writeln(f_out);
Writeln(f_out,'N_sogl= ',N);
Close(f_out);
END.