profile="http://gmpg.org/xfn/11"> Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль. | Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль.

Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль.

program Kol_Letters_Digits;

{задачи на числа паскаль с решением}
{Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль.}
uses
  crt;

type
  Ch_Set = set of char;
const
  Digits: Ch_Set = ['0'..'9'];
  Letters: Ch_Set = ['A'..'Z', 'a'..'z'];
var
  i, i_CountDig, i_CountLet: integer;
  i_ArrNum: array[1..10] of integer;
  ch_1: char;
  ch_f: Text;
begin
  i_CountDig := 0;
  i_CountLet := 0;
  Assign(ch_f, 'E:\file1.txt');
  Reset(ch_f);

  while not EOF(ch_f) do
  begin
    Read(ch_f, ch_1);
    Write(ch_1);
    if ch_1 in Digits then
      i_CountDig := i_CountDig + 1;
    if ch_1 in Letters then
      i_CountLet := i_CountLet + 1;
  end;
  //Вывод на экран
  WriteLn();
  WriteLn('Количество цифр = ', i_CountDig);
  WriteLn('Количество букв = ', i_CountLet);

  //завершение работы программы
  WriteLn('Нажмите <Enter>, чтобы выйти.');
  ReadLn();
end.

Текстовой файл:
Текстовой файл
Текстовой файл.

Результат:
Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль
Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль.

Комментарии запрещены.