var a:array of integer;
N,i,k1,k2,k3:integer;
BEGIN
readln(N);
SetLength(a,N);
for i:=0 to N-1 do begin
read(a[i]);
if (a[i]=0) then k3:=k3+1;
if (a[i]>0) then k1:=k1+1;
if (a[i]<0) then k2:=k2+1;
end;
writeln(k1);
writeln(k2);
writeln(k3);
for i:=0 to N-1 do
write(a[i],' ');
end.
на относится 2 . Потому, что все остальные расширения это рисунки, а это звук.
В конце XIX века Герман Холлерит в Америке изобрел счетно-перфорационные машины. Он основал фирму по производству этих машин, которая затем была преобразована в фирму IBM.
//PascalABC.NET 3.1 сборка 1239
function BinToDec(bin: string): integer;
begin
var n := 0;
var p := 1;
for var i := length(bin) downto 1 do
begin
n += p * StrToInt(bin[i]);
p *= 2;
end;
Result := n;
end;
begin
var s := ReadlnString('s =');
writeln(BinToDec(s));
end.
Б. С. К. З.
____________________________
квадрат - - + -
____________________________
круг. - + - -
____________________________
ромб. + - - -
____________________________
треуг. - - - +
____________________________