оператор div это целочисленное деление, то есть одно число делим на другое целую часть оставляем остольное отбрасываем.
25 div 8 = 3
Информационный процесс<span> — это процесс сбора (приёма), передачи (обмена), хранения, обработки (преобразования) информации.</span>
<h2>Пример 1</h2>
0 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 0 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 0 + 0 + 32 + 0 + 0 + 0 + 4 + 2 = 32 + 4 + 2 = 38₁₀
<h2>Пример 2</h2>
1 · 2⁷ + 1 · 2⁶ + 0 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 128 + 64 + 0 + 8 + 4 + 2 + 1 = 207₁₀
<h2>Пример 3</h2>
1 · 2⁷ + 0 · 2⁶ + 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 0 · 2⁰ = 128 + 0 +32 + 0 + 8 + 4 + 2 + 0 = 174₁₀
<h2>Пример 4</h2>
0 · 2⁷ + 1 · 2⁶ + 1 · 2⁵ + 1 · 2⁴ + 1 · 2³ + 1 · 2² + 1 · 2¹ + 1 · 2⁰ = 0 + 64 + 32 + 16 + 8 + 4 + 2 + 1 = 127₁₀
===== PascalABC.NET =====
begin
var a := ReadArrInteger('a:', 10);
var b := ReadArrInteger('b:', 10);
var L := new List<integer>;
var (m, im) := (a[0] * b[0], 0);
for var i := 1 to a.High do
begin
var c := a[i] * b[i];
if c > m then
begin
L.Clear;
L.Add(i);
(m, im) := (c, i)
end
else if c = m then
L.Add(i);
end;
foreach var i in L do
Println(i + 1, a[i], b[i], a[i] * b[i] / 2)
end.