Для начала переведем все числа в одну систему счисления, например в десятичную:
<span>1)
111101</span>₂=61₁₀
AF₁₆=175₁₀
36₈=30₁₀
(61+175)/30=7.8(6)₁₀
2)
125₈=85₁₀
101₂=5₁₀
2A₁₆=42₁₀
141₈=97₁₀
85+5+42-97=35₁₀
Function f(x: real): real;
begin
f := x * sqr(x) - sin(x)
end;
var
a, b, h, x: real;
begin
Write('Введите через пробел a,b,h: ');
Readln(a, b, h);
x := a;
while x <= b do
begin
Writeln('x=', x:0:3, ', f(x)=', f(x):0:5);
x := x + h
end
end.
var
a : array [1..1000] of integer;
i, n, sum : integer;
begin
read (n);
for i := 1 to n do read (a[i]);
sum := 0;
for i := 1 to n do
if i mod 2 = 0 then inc (sum, a[i]);
writeln (sum);
end.
Var skorost,pyt:real;
begin
writeln('Скорость равна = ');
read(skorost);
writeln('Путь равен = ');
read(pyt);
writeln('Время равно = ',pyt/skorost);
end.
1 дерево вершина + ветка + ствол
2 дерево вершина + две ветки
3 дерево ветка + ствол