Много:
1) 2+2+2+2
2)1+1+1+1+1+1+1+1
3) 2+1+2+1+2
4)1+1+2+2+1+1 и тд
14 в двоичной системе будет 1100
101<span> + 1</span>100<span> = 10</span><span>001</span>
Var
d: array [1..6] of integer;
i:integer;
begin
for i:=1 to 6 do
read(d[i]);
for i:=1 to 6 do begin
if d[i]>0 then
write(d[i],' ');
end;
end.
Uses crt;var f,z,k:real;beginwriteln ('Введите число Z');readln (z);writeln ('Введите число K');readln (k);F:=1-3*z+((sqrt(z))/(3*k));writeln('Ответ: ',f:2:1);end.