13*4+(13*2+3*2)*2)+3*4=140 метров *=умножение
Const
n=12;
var
b:array[1..n] of integer;
i,k:integer;
begin
Randomize;
Write('Последовательность: ');
for i:=1 to n do begin
b[i]:=Random(41)+10;
Write(b[i],' ')
end;
Writeln;
k:=5;
for i:=6 to n do
if b[i]>b[i-1] then k:=i
else break;
if k=n then Writeln('Последние 8 элементов в возрастающей последовательности')
else
if k>5 then Writeln('Возрастание элементов идет с номера 5 по ',k)
else Writeln('Следующий за пятым элемент не возрастает')
end.
Пример
Последовательность: 44 10 33 40 15 33 45 26 43 45 49 48
Возрастание элементов идет с номера 5 по 7
Во-первых, "восьмиричная" пишется слитно, а наша привычная система счисления называется не "10 ричная", а десятичная.
Ну а во-вторых, переводить по тому же принципу, что и из любой системы счисления в десятичную. Используем расширенную запись числа по указанному основанию и делаем необходимые вычисления.
727₈ = 7×8² + 2×8¹ + 7×8⁰ = 7×64 + 2×8 + 7×1 = 448 + 16 +7 = 471₁₀
Ответ: 471
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
writeln ((x>=-2)and(x<=2)and(y>=0)and(y<=4)or
(x>=-4)and(x<=5)and(y<=0)and(y>=-3));
end.
Пример:
<span>x = 3
y = -1
True</span>