1символ текста кодируется одним байтом. а если в битах , то 1 символ текста кодируется 8 битами.
polusik120796
06.03.2020
Var n,d,k: longint; begin write('n = '); readln(n); write('делители числа ',n,': '); d: =n div 2; if n> 1 then begin k: =1; write(' ',n) end else k: =0; while d> 0 do begin if n mod d = 0 then begin k: =k+1; write(' ',d); end; d: =d-1 end; writeln; writeln('их количество: ',k); end.