//PASCAL
var
a:array[1..10] of integer;
i,min:integer; av:real;
begin
min:=1;
randomize;
for i:=1 to 10 do begin
a[i]:=random(-10,10);
av:=av+a[i];
if a[i] <= a[min] then min:=i;
end;
av := av / 10;
writeln('Среднее арифметические: ', av:0:1,#13#10,'Минимальное: ', min);
readln;
end.
<h2>Гляди . Рассуждаем таким образом.</h2>
Единственная система счисления которая имеет на борту только "1" и "0" - это <u>двоичная</u> система счисления ...
Перевод выполняется таким образом : каждая цифра двоичного числа умножается на 2 , которая возводиться в степень по индексу числа , тоесть <em>имеем число 101 - для перевода необходимо : 1*2^2 + 0*2^1 + 1*2^0 = 4+0+1(т.к любое число в нулевой степени равно 1 , даже 0^0) , = 5 - это ответ уже в 10-тичной сс.</em>
<em></em>
Ещё пример, возьмём число 1010. Переведём его в десятичную сс = 1*2^3+0*2^2+1*2^1+0*2^0 = 10 ...
<h3><em>
Граматика</em> : 2^3 - переводиться как 2 в 3 степени.</h3>
<h3>Решаем твою задачу, имея на экране теорию ..</h3>
10100 детей - закодировано в 2-чной сс , выполним перевод в 10-чную сс = 1*2^4+(пропускаем нули, их умножать бесполезно)+1*2^2 ... (остальное нули) = 16+4 = 20 детей в классе
Считаем колличество мальчиков в классе - 1100 - это 1*2^3+1*2^2 = 12 - вот столько мальчиков ....
Вычитаем из общего колличества детей колличество мальчиков , получаем = 20-12 = 8;
<h2>Ответ: 8.</h2>
Program gt;
var x1,y1,x2,y2,x3,y3,a,b,c,p,s:real;
procedure dlinastoron(x1,y1,x2,y2:real;var b:real);
begin
b:=sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
end;
procedure perimetr(a,b,c:real;var d:real);
begin
d:=a+b+c;
end;
procedure ploshad(a,b,c:real;var d:real);
var s:real;begins:=(a+b+c)/2;
d:=sqrt(s*(s-a)*(s-b)*(s-c));
end;
begin
readln(x1,y1,x2,y2,x3,y3);
dlinastoron(x1,y1,x2,y2,a);
dlinastoron(x1,y1,x3,y3,b);
dlinastoron(x3,y3,x2,y2,c);
perimetr(a,b,c,p);
ploshad(a,b,c,s);
writeln(a,' ',b,' ',c);
writeln(p);
writeln(s);
<span>end.</span>
1-первое больше(но не уверен) 2-320сек 3-6400мб/сек. Дождись другие ответы, так как я не уверен)
Program n1;
var a: array[1..10] of integer;
k,kol,i: integer;
begin
randomize;
write('k=');
readln(k);
kol:=0;
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]<k) then kol:=kol+1;
end;
writeln;
writeln('кол-во эл меньше ',k,': ',kol);
end.