Ответы
Ответ дал:
0
Var
x:real;
Begin
X:=-2;
Repeat
WriteLn('Z(',x,') = ',Exp(x*x)-1);
x:=x+0.2
Until x > 0;
End.
x:real;
Begin
X:=-2;
Repeat
WriteLn('Z(',x,') = ',Exp(x*x)-1);
x:=x+0.2
Until x > 0;
End.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад