Написать развёрнутую форму числа 23879,9810

2) 101010(2) идем справа налево 0*2^0 + 1*2^1 + 0*2^2 + 1*2^3 + 0*2^4 + 1*2^5 2 + 8 + 32 42(10) 1) не знаю, что такое развернутая форма числа. если двоичная, то целая часть так: 23879 16384 + 4096 + 2048 + 1024 + 256 + 64 + 4 + 2 + 1  2^14 + 2^12 + 2^11 + 2^10 + 2^8 + 2^6 + 2^2 + 2^1 + 2^0 101110101000111(2) а дробная часть так: 0,98 1/2 + 1/4 + 1/8 + 1/16 + 1/32 + 1/128 + 1/512 + 1/1024 + (остается ~ 0,0005)  0,1111101011(2) все вместе: 101110101000111,1111101011(2)

var n, i, k, a: integer;

begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.