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 Кб
2) мышь, т.к. это устройство ввода
3) процессор, т.к. это устройство не предназначено для хранения информации
4) микрофон, т.к. это устройство ввода
5) Системный блок
6) Скорее всего системный блок, но в этом я не уверен.
7) Карта расширения
8) Esc, т.к. не выполняет никакой функции во время набора текста
9) Цветной принтер, т.к. это не основная классификация принтеров