Кількість бітів чи байтів у двійковому коді повідомлення - це ... *

var i,s: integer;

begin

writeln('summa ');

for i: =100 to 999 do

if i mod 17 =0 then s: =s+i else s: =s+0;

writeln(s)

end.

64 = 1000000

-120 = -1111000

-96 = -1100000

57 =  111001

вот конвертер:

s: = str(number);

for : = 1 to length(s)  div 2 do

  if s[i] < > s[length(s) - i + 1] then writeln("не палиндром")ж