program Test;
const
L = ['а'..'я', 'А'..'Я'];
N = ['0'..'9'];
var
f: Text;
s: AnsiString;
cl, cn, i: Integer;
begin
Assign (f, 'text.txt'); // здесь название файла
Reset (f);
cl := 0;
cn := 0;
while not Eof (f) do begin
ReadLn (f, s);
for i := 1 to Length (s) do begin
if s [i] in L then
Inc (cl)
else if s [i] in N then
Inc (cn);
end;
end;
Close (f);
WriteLn ('Русских букв: ', cl);
WriteLn ('Цифр: ', cn);
ReadLn;
end.
Объяснение:
текстовый файл должен находиться в папке с программой, иначе укажите полный путь к нему. Кодировка файла ANSI - кириллица 1251 или OEM -русский 866.
10 байт = 80 бит
500 байт = 4000 бит
1,5 Кбайт = 12288 бит
2 Гбайт = 17179869184 бит
10240 байт = 10 Кбайт
204800 байт = 200 Кбайт
1,5 Кб = 1536 байт = 12288 бит
1,5 Гб = 1536 Мбайт = 1572864 Кб
Объяснение:
10 байт = 10 * 8 = 80 бит
500 байт = 500 * 8 = 4000 бит
1,5 Кбайт = 1,5 * 1024 * 8 = 12288 бит
2 Гбайт = 2 * 1024 * 1024 * 1024 * 8 = 17179869184 бит
10240 байт = 10240 / 1024 = 10 Кбайт
204800 байт = 204800 / 1024 = 200 Кбайт
1,5 Кб = 1,5 * 1024 = 1536 байт = 1536 * 8 = 12288 бит
1,5 Гб = 1,5 * 1024 = 1536 Мбайт = 1536 * 1024 = 1572864 Кб
