Предмет: Информатика,
автор: Velizavetka
Помогите решить плиз....
Приложения:
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Обществознание,
автор: David7393
Предмет: ОБЖ,
автор: gepard74
Предмет: Русский язык,
автор: lashynsayran
Предмет: Математика,
автор: опрмап