Подсчёт русских букв в строках файла
Категория: Delphi/Pascal
2011-08-26 21:55:29
code: #pascal
- var
- f:Text;
- ch:Char;
- i:Integer;
- begin
- Assign(f,'Text.txt');
- Reset(f);
- while not EOF(f) do
- begin
- Read(f,ch);
- if ch in [#192..#255,#168,#184] then Inc(i);
- end;
- Close(f);
- Writeln('Russkih bukv: ',i);
- Readln;
- end.
Поделиться: