program zadacha;
var
x,y:real;
begin
writeln('vvedite x');
readln(x);
if x>0 then y:=-2+3*x else y:=8+x;
writeln('y=',y);
end.
Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
Функция "Счет" выведет кол-во ячеек с числами из выделенного фрагмента
Procedure TForm1.Button1Click(Sender: TObject);
var
xn, e, m : Extended;
xnn : Extended;
begin
Memo1.Clear;
xn := StrToFloat(Edit1.Text);
e := StrToFloat(Edit2.Text);
m := StrToFloat(Edit3.Text);
repeat
xnn := xn;
xn := (1/3)*(2*xnn + (m/(xnn*xnn)));
Memo1.Lines.Append('xn = '+floattostr(xn));
until (Abs(xn-xnn)<e);
<span>end;
</span>