Объяснение:
Вот таблица, горизонтальные не принимает;)
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ReadReal;
var y:real;
if x<5 then y:=1/(x-5)
else
if x=5 then y:=45
else y:=x**3-20;
Writeln(y)
end.
<u>Пример</u>
12.543
1953.350667007
Const c:array [1..10] of integer = (-7,3,0,2,-1,4,8,-9,1,6);
var b,d:array [1..10] of integer;
p,k,max,i,j,tmp:integer;
begin
p:=1;
for i:=1 to 10 do
if c[i] > 0 then p:=p*c[i];
k:=0;
for i:=1 to 10 do
if c[i] < 0 then inc(k);
d:=c;
max:=d[1];
for i:=2 to 10 do
if c[i] > max then max:=c[i];
writeln ('Max: ',max);
writeln ('Kol-vo otriz. elementov: ',k);
writeln ('Proizvedenie: ',p);
for i:=1 to 10 do
if c[i] >= 0 then b[i]:=c[i]+10 else
if c[i] < 0 then b[i]:=c[i]*c[i];
writeln ('New massiv: ');
for i:=1 to 10 do write (b[i],' ');
writeln;
for i:=1 to 9 do
for j:=i+1 to 10 do
if d[j] > d[i] then
begin
tmp:=d[j];
d[j]:=d[i];
d[i]:=tmp;
end;
for i:=1 to 10 do write (d[i],' ');
writeln;
end.
<span>В этой системе счисления 8 цифр: 0, 1, 2, 3, 4, 5, 6, 7. Цифра 1, указанная в самом младшем разряде, означает, как и в десятичном числе, просто единицу. Та же цифра 1 в следующем разряде означает 8, в следующем – 64 и т. д. Число 100 (восьмеричное) есть не что иное, как 64 (десятичное). Чтобы перевести в двоичную систему, например, число 611 (восьмеричное), надо заменить каждую цифру эквивалентной ей двоичной триадой (тройкой цифр). </span>
7^80-7^65+(7^2)^15-7^2
=7^80-7^65+7^30-7^2
Количество 6 - это разность между степенями, если между числами стоит минус:
7^80-7^65 => 80-65=15
7^30-7^2 => 30-2=28
28+15=43
Ответ: 43