проверь, не застрял ли кардридж печати.
попробуй поменять режим печати на черно-белый или на цветной
самый очевидный, перезапустить принтер (хотя наверно попробывал думаю)
возможно дело в драйвере к принтеру, попробуй установить другой версии.
обычно кстати к принтерам делают софт с которого проще машиной, поищи мб есть.
если ранее небыло такой проблеммы при постоянном использовании, то перезапуск обычно решает проблемму.
еще как вариант( если печатаешь с пк а не на прямую), подключи принтер через другой порт usb
вроде все варианты перебрал, разве что кроме очевидной поломки внутренних частей принтера.а так все
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.
Берешь исходное число 8310.
и делаешь следующее.
8310 / 2 = 4155, остаток 0
4155 / 2 = 2077, остаток 1
2077 / 2 = 1038, остаток 1
1038 / 2 = 519, остаток 0
519 / 2 = 259, остаток 1
259 / 2 = 129, остаток 1
129 / 2 = 64, остаток 1
64 / 2 = 32, остаток 0
32 / 2 = 16, остаток 0
16 / 2 = 8, остаток 0
8 / 2 = 4, остаток 0
4 / 2 = 2, остаток 0
2 / 2 = 1, остаток 0
1 / 2 = 0, остаток 1
И твое число в двоичной система будет снизу вверх из чисел остатка, а то есть 10000001110110