var i:integer;
begin
for i:=15 to 90 do if i mod 15 = 0 then write(i,' ');
end.
Точка принадлежит прямоугольнику и треугольнику или прямоугольнику, но не кругу:
Б) С * НЕ(НЕ В * А)= С* В +С* неА
И=0₁₀=0₂<span>
Д=1</span>₁₀=1₂<span>
Т=2</span>₁₀=10₂<span>
О=3</span>₁₀=11₂<span>
X=4</span>₁₀=100₂
ТИХОХОД=10 0100 1110 0111<span>₂=24E7</span>₁₆
ближайшее большее число(но не меньшее, т.к. сообщение тогда не поместится), равное степени двойки(2,4,8,16,32,64,128,256....) это 256. 256-это два в восьмой степени. значит номер каждого спортсмена весит 8 бит. 8*120(половина спортсменов)=960 бит
или 8 бит-1 байт, тогда ответ 120 байт(те же 960 бит)
Сама процедура занимает 5 строчек.
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
procedure MV(a:array[,] of integer; b,c:array of integer);
begin
for var i:=0 to b.Length-1 do
c[i]:=a.Row(i).Zip(b,(p,q)->p*q).Sum;
end;
begin
var a:array[,] of integer:=((2,4,0),(-2,1,3),(-1,0,1));
var b:array of integer:=(1,2,-1);
Writeln('Матрица A'); a.Println(3);
Write('Вектор B: '); b.Println;
var c:=new integer[3];
MV(a,b,c);
Write('Вектор С: '); c.Println
end.