Uses crt;
var summa, raz,st,storona1,storona2:real;
begin
ClrScr;
writeln("Введите сумму двух чисел");
readln(summa);
writeln("Введите во сколько раз одно больше другого");
readln(raz);
st:=summa/(raz+1);
storona1:=st;
storona2:=st*raz;
write("1 число-", storona1:7:2,"ед.");
1101100₂<span> = 1∙2</span>⁶+1∙2⁵+0∙2⁴+1∙2³+1∙2²+0∙2¹+0∙2⁰= 64+32+0+8+4+0+0= 108
1101100₂= 108₁₀
Var
x, s, a: real;
i: integer;
begin
write('Введите x');
readln(x);
a := x;
s := a;
for i := 1 to 6 do
begin
a := a * (-1) * x * x / (2 * i) / (2 * i + 1);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
Var x, y: real;
begin
writeln('Введите координаты точки x, y');
read(x, y);
if abs(x - 4) + abs(y - 4) <= 3 then writeln('Принадлежит')
else writeln('Не принадлежит')
end.