второй проиграет в любом случае так как 36 долек соответственно четное количество линий между долек а так как порядок стартует раньше то и первый закончит последний
Т. к. а не может быть одновременно быть больше 1000 и меньше 100, никогда не выйдет 'Ошибка'
<span>Технические характеристики это:</span>
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
1)program odin;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=x-(Sqr(x)*x)/3+(Sqr(x*x)*x)/5;
Writeln('y =',y)
end.
2)program dva;
var x,y:real;
begin
Writeln('Введите x');
Readln(x);
y:=<span>Exp(-x*Ln(2))</span>- Cos(x)+ Sin(2*x);
Writeln('y =',y)
end.
3)program tri;
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 cheture;
var x,y:real;begin
Writeln('Введите x');
Readln(x);
y:=x-10*Sin(x)+(Sqr(x*x)*(1-x));
Writeln('y =',y)
end.