Program n1;
Uses CRT;
Const n=5;
Var x: array[1..n,1..n] of integer;
a: array[1..n] of integer;
i,p,s,j: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
For j:=1 to n do
x[i,j]:=random(100);
j:=1;
Repeat
For i:=1 to n do
If a[j]<x[i,j] then a[j]:=x[i,j];
write(a[j]:4);
j:=j+1;
Until j=n+1;
p:=1;
writeln;
For i:=1 to n do
If i mod 2=0 then s:=s+a[i]
else p:=p*a[i];
writeln('Proizvedenie =',p,',Summa =',s);
readln
end.
101000₂% = 40₁₀% девочек.
1111₂ = 15₁₀ мальчиков.
Пусть в классе всего n учеников, тогда девочек в нем 0.4n, а мальчиков - остальные 0.6n, что составляет 15 человек.
0.6n=15 ⇒ n=15/0.6 = 25
Ответ: 25 человек
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var b:=Arr(2,7,11,15,4,-2,6);
Writeln('Первое отрицательное под номером ',b.FindIndex(k->k<0)+1);
Writeln('Сумма положительных ',b.Where(k->k>0).Sum);
Writeln('Минимальное значение под номером ',b.IndexMin+1)
end.
<u>Результат</u>
Первое отрицательное под номером 6
Сумма положительных 45
Минимальное значение под номером 6
const
n = 7;
var
y: <em>real</em>;
i: <em>integer</em>;
begin
for i := 1 to n do
y := y + n / i;
writeln(y);
end.
212 (10сс) = 1101 0100 (2сс) 15 (10сс) =0000 1111 (2сс)
192 (10сс) =1100 0000 (2сс) 0 (10сс) = 0000 0000 (2сс)
-----------------------------------------------------------------------
в 10сс:
IP 218. 217. 212. 15
cеть 218. 217. 192. 0
маска 255. 255. Х Y
два последних байта
X и Y в 2сс:
212. 15 = 1101 0100 . 0000 1111
192. 0 = 1100 0000. 0000 0000
min маска 1100 0000 0000 0000
max маска 1110 0000 0000 0000
возможно применение двух масок:
маска1 255.255.192.0
маска2 255.255.224.0 ответ 2
