Носитель информации , сделаны из кожи животных.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

2000 - k

16 бита - i

v=k*i=2000*16=32000 бита=4000 байтов