Program esep;
const min = -1;
max = 1;
step = 0.1;
var a, b, x, y : real;
begin
x := min;
write('введите a, b, x: ');
readln(a, b, x);
repeat y := 1+sqr(a+ b)/(x-a);
writeln('X = ', x:6:2, ' Y(X) = ', y:6:2);
x := x + step
until x >= max + step;
readln
<span>end.</span>
===== PascalABC.NET =====
begin
var d := 0;
while True do
if ReadlnReal >= 22 then break
else d += 1;
Print( d div 7)
end.
512 граммов
1*2=2
2*2=4
4*2=8
8*2=16
16*2=32
32*2=64
64*2=128
128*2=256
256*2=512
<span><span>Пусть N – количество букв
в номере. Тогда существует 5^</span></span>n *10^<span><span>4 различных
номеров. По условию, должно быть выполнено 5^n*10^4>1000000,
т.е. 5^n>100. Отсюда N=3 .</span></span>
1) y:=2*sin(x)*sqrt(x+sqrt(abs(x)))
2sinx+корень(х+корень(|x|))
2) y:=sqrt(sin(x)+sin(sqrt(x)))
корень(sinx+sin(кореньх))
<span>3) y:=sqrt(abs(x-1)+sqrt(sin(x)))
</span>корень(|x-1|+кореньsinx)