ВЕРОНИКА
5 год назад
Пожалуйста посчитайте решить плиз....
ОТВЕТЫ
Мариана
Oct 24, 2020
Var
x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',1+2*x-x*x);
x:=x+0.5
Until x > 4.5;
End.
x:real;
Begin
X:=0;
Repeat
WriteLn('Z(',x,') = ',1+2*x-x*x);
x:=x+0.5
Until x > 4.5;
End.
432
Смежные вопросы:
