К электросети
К локальной сети
К интернет
К монитору
К станку
К машине
и т.п.
Вторая сторона = корень из (с^2-b^2)
P= (b+корень из (с^2-b^2))*2
S=(корень из (с^2-b^2))*b
var i : integer;
a : string;
b :array [1..16] of integer;
begin
a :='';
Randomize;
for i:= 1 to 16 do
begin
b[i]:= Random(-20,20);
if b[i] mod 2 = 0 then a:=a+ i + ' ';
end;
Writeln(a);
end.
Выше ответ более простой, но может Вам нужно что-то сложное?
Например:
1) 10101(2)<span> = 1∙2^</span>4+0∙2^3+1∙2^2+0∙2^1+1∙2^0<span> = 16+0+4+0+1 = 21(</span>10)
2) 11101(2)<span> = 1∙2^</span>4+1∙2^3+1∙2^2+0∙2^1+1∙2^0<span> = 16+8+4+0+1 = 29(</span><span>10)
3) </span>01010(2)<span> = 0∙2^</span>4+1∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 0+8+0+2+0 = 10(</span>10)
4) 11111(2)<span> = 1∙2^</span>4+1∙2^3+1∙2^2+1∙2^1+1∙2^0<span> = 16+8+4+2+1 = 31(</span><span>10)
5) 01110(2) = </span>0∙2^4+1∙2^3+1∙2^2+1∙2^1+0∙2^0<span> = 0+8+4+2+0 = 14(</span>10)
<span>10101(2) - 10101 в двоичной системе счисления
21(10) - 21 в десятичной системе счисления
1*2^4 - 1 умножить на 2 в четвёртой степени
* - знак умножить</span>
Var
ar:array[1..10] of integer;
k,i,n:integer;
begin
readln(k);
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>k then n:=n+1;
end;
writeln('Array:');
for i:=1 to 10 do write(ar[i]:4);
writeln;
write('Res:',n);
end.<span> </span>