Ответ:
BC₁₆ = C*16⁰ + B*16¹ = 188₁₀
188₁₀ = 4*8⁰ + 7*8¹ + 2*8² = 274₈
Backspace - надпись на клавише, которая удаляет символы слева от курсора. Delete - удаляет справа от курсора.
Const
n = 5;
var
arr: array [1..n] of integer;
i, max: integer;
begin
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
max := 1;
for i := 1 to n do
if (max < arr[i]) and (arr[i] mod 5 = 0) then
max := arr[i];
if max = 1 then
writeln('No')
else
writeln(max);
end.
uses
GraphABC;
var
a: array of point := (new point(600, 400), new point(100, 0), new point(70, 300));
begin
SetBrushColor(clYellow);
FillRect(0, 0, WindowWidth, WindowHeight);
SetBrushHatch(HatchStyle.Percent05);
SetBrushStyle(BrushStyleType.bsHatch);
SetPenColor(clGreen);
SetPenWidth(3);
SetBrushColor(clRed);
FillPolygon(a);
DrawPolygon(a);
end.