Ответы
Var x,y:real;
begin
Writeln('введите значение x');
Readln(x);
y:=sqr(x+1)+3*(x+1);
Writeln('y=',y);
readln;
end.
Нет комментариев
Var x,y:real;
begin
Writeln('введите значение x');
Readln(x);
y:=sqr(x+1)+3*(x+1);
Writeln('y=',y);
readln;
end.