Program prog;
Uses crt;
var a: array [1..5] of integer;
i,k: integer;
begin
clrscr;
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
if (a[i]<>0) then
inc(k);
end;
writeln;
write('k = ', k);
end.
в кодировке ASCTIL будет занимать 8 бит а в кодировке UNICODE (самой популярной) занимает 16. потому скорей всево 16 бит информации будет нести в себе сообщение о том, что загаданная последовательность является симметричной.
<span>var a,b:integer;
<span>begin</span></span>
<span><span /></span><span><span>a:=10;
</span><span> b:=15;
if a>b then b:=a+b;
a:=a+b;</span></span>
<span><span>writeln(a);</span></span>
<span><span>writeln(b);</span></span>
<span><span>end;</span></span>
<span><span />
</span>
Отражают примеры инфы преса интернет книги и тв радио