Var
R1,R2,R3,R:real;
begin
read(R1,R2,R3);
R:=R1*R2/(R1+R2)+R2*R3/(R2+R3);
write(R:2:2);
end.
40 делится на 2,4,5,8,10,20, а значит что в 6 системах счисления с основанием < 40 и во всех системах счисления с основанием >= 40.
Ответ: 6
1)program wk;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(x*x*x)/3+(x*x*x*x*x)/5;
Writeln('y =',y)
end.
2)program wk2;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x/2- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program wk3;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=(x*x-7*x+10)/(x*x-8*x+12);
Writeln('y =',y)
end.
4)program wk4;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+Abs(x*x*x*x-x*x*x*x*x);
Writeln('y =',y)
end.