Объяснение:
использовать Чертежник
алг
нач
сместиться в точку (2,3)
опустить перо
сместиться на вектор (-1,-1)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (3,1)
опустить перо
сместиться на вектор (-1,-1)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (3,1)
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
сместиться на вектор (0,-1)
сместиться на вектор (-1,0)
поднять перо
сместиться на вектор (3,2)
опустить перо
сместиться на вектор (0,-2)
поднять перо
сместиться на вектор (0,1)
опустить перо
сместиться на вектор (-1,0)
сместиться на вектор (0,1)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (1,0)
сместиться на вектор (-1,-1)
сместиться на вектор (0,-1)
поднять перо
сместиться на вектор (2,0)
опустить перо
сместиться на вектор (1,1)
сместиться на вектор (0,1)
сместиться на вектор (-1,0)
сместиться на вектор (0,-1)
сместиться на вектор (1,0)
поднять перо
сместиться в точку (0,0)
кон
PascalABC.NET 3.8
function SK(m: array of real; a, b: real) : (real, integer);
begin
var (s, k) := (0.0, 0);
foreach var d in m do
if d.Between(a, b) then
begin
s += d;
Inc(k)
end;
Result := (s, k)
end;
begin
var n := ReadInteger('n=');
var mA := ReadArrReal('Массив А:', n);
var (a, b) := ReadInteger2('Введите a и b:');
var (s1, k1) := SK(mA, a, b);
Println('S1 =', s1, ' k1 =', k1);
n := ReadInteger('m=');
var mB := ReadArrReal('Массив B:', n);
(a, b) := ReadInteger2('Введите c и d:');
var (s2, k2) := SK(mB, a, b);
Println('S2 =', s2, ' k2 =', k2);
end.
10101011 = 171
11001100 = 204
11000111 = 199
11110100 = 244
Переводим из 16ой системы счисления в 10ю.
BC = 188
Переводим из 8ой системы счисления в 10ю.
20 = 16
BC(16)+20(8) = 188+16 = 204
10101011 и 11000111 меньше BC(16)+20(8)