Ответ(ы) на вопрос:
Гость
Var
y,x:real;
i:integer;
Begin
For i := 1 to 10 do Begin
x:=i;
y:=(3*sqr(x)-sqrt(x+1))/(2-x);
writeln('X',i,' = ',x,', Y',i,' = ',y);
End;
End.
Не нашли ответ?
Похожие вопросы