<span>а)1000011110101=4341
</span>1010010111011=5307
<span>110011001100110101=209717
</span>б)123=1111011
456=<span>111001000
1024=</span><span>10000000000
4095=</span><span>111111111111</span>
Клавиша на клавиатуре TAB.
После этих строчек:
<em>for i:=0 to 10 do </em>
<em>a[i]:=i-1; </em>
Элементы массива будут от иметь значения -1 до 9.
А после этих:
<em>for i:=1 to 10 do </em>
<span><em>a[i-1]:=a[i]; </em></span>
<span><em>a[10]:=10;
</em></span>
Они будут равны от 1 до 10.
var a,b,c:integer;
begin
readln(a,b,c);
if((a=b)or(b=c)or(c=a)) then writeln(':)') else writeln(':(')
end.