Юковский
5 год назад
Пожалуйста посчитайте решить приз....
ОТВЕТЫ
Борис
Oct 24, 2020
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.
23
Смежные вопросы:
