Пусть первый кладоискатель разделит добычу поровну и предложит выбрать любую часть разделенной добычи второму кладоискателю. Претензий не будет ни у кого, т.к. первый делил, а второй выбирал.
var
a, d, c, k: <em>real</em>;
begin
readln(a, d, c, k);
writeln((a - (d + 21) * 2) * (c - 7 * k));
end.
Program zad1;
Var
x,B1,B2,B3,B4,B5,y:real;
begin
writeln('Введите X');
readln(x);
B1:=x+1;
B2:= 1/B1;
B3:= B2-1;
B4:= B2+1;
B5:= B3/B4;
y:= B5-1;
writeln('Ответ: ',y:6:2);
end.
Восьмеричная:
двоичное число разбиваем на триады с конца и переводим в десятичную
1000110010010 - 2
110 - 6
000 - 0
001 - 1
ответ - 1062 в восьмеричной
16 ричная:
разбиваем на тетрады
0010 - 2
0011 - 3
0010 - 2
ответ 232 в 16ричной
Десятичная:
1000110010<span> = 1∙2^</span>9+0∙2^8+0∙2^7+0∙2^6+1∙2^5+1∙2^4+0∙2^3+0∙2^2+1∙2^1+0∙2^0<span> = 512+0+0+0+32+16+0+0+2+0 = 562 в десятичной
</span>
чтобы перевести в любую другую систему можно взять десятичное число (в данном случае 562) и перевести в нужную систему (например в троичную). (ответ в приложении)
Если Python, то вот:
import random
a = random.randrange(1,11)
b = random.randrange(1,11)
c = random.randrange(1,11)
d = a * b * c
print("Ответ = " +str(d))