10бит 20бит 2байта 1010байтов 1Кбайт
begin
var (N, a, x1, x2) := (12, 1.0, 2.0, 3.0);
PartitionPoints(x1, x2, N).
Tabulate(x -> Sin(Sqrt(a ** 3 + x)) / (14 + a * x)).
ForEach(p -> Writeln(p[0]:17:14, p[1]:20:16));
end.
1. х=40, у=10
2. х=20, у=20
3. х=50, у=20
4. х=56, у=30
5. х=60, у=28
6. х=60, у=40
7. х=70, у=40
8. х=70, у=50
9. х=80, у=50
10.х=80, у=40
11х=90, у=40
12. х=90, у=28
13.х=100, у=28
14. х=100, у=20
15. х=110, у=20
16. х=110, у=10
17. х=40, у=10
Первый игрок побеждает в любом случае
По действиям:
1. (<=10) x; Напр 3.
2. (<=10) y; Напр 7.
(x+y)<=20; Напр 10.
1. (>=10) Отвечает числом 100-(x+y) - Число от 80 до 100. Напр 100 - 10 = 90.
<span><em>uses crt;</em>
<em>var a,b,c,d,x:real;
</em>
<em>begin</em>
<em>clrscr;</em>
<em> writeln('введите A,B,C');
</em>
<em> readln( a,b,c );
</em>
<em> d:=sqr(b)-4*a*c;
</em>
<em> if d<0 then </em>
<em> writeln('действительных корней нет') </em>
<em> else if d=0 then </em>
<em> begin
</em>
<em> x:=(-b)/2*a;
</em>
<em> writeln('корень уравнения: ',x);
</em>
<em> end else </em>
<em> begin
</em>
<em> x:=(-b+sqrt(d))/2*a;
</em>
<em> writeln('1-ый корень уравнения: ',x);
</em>
<em> x:=(-b-sqrt(d))/2*a;
</em>
<em> writeln('2-ой корень уравнения: ',x);
</em>
<em> end
</em>
<em>end.</em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>