100000 + 30000 + 8000 + 10
30000 + 5000 + 700 + 10
100 + 20 + 5 + 0.4 + 0.09 + 0.001
11110101 1+4+16+32+64+128=245
Свой ты должна знать сама, если чей то,то спроси у этого человека.
===== PascalABC.NET =====
begin
for var i := 1 to integer.MaxValue-2 do
if (i+1)*(i+2) - i * i = 50 then
begin
Print(i, i+1, i+2);
break
end
end.
Результат: 16 17 18
<u>PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,a,b):=ReadReal3('Введите x,a,b:');
var y:=Sqr(Cos(x**3))-x/Sqrt(a*a+b*b);
var w:=Sqrt(x*x+b)-b*b*Sin(x+a)**3/x;
Writeln('y=',y,', w=',w)
end.