110 из 2 в 10 = 6
100 из 8 в 10 = 64
101 из 16 в 10 = 257
257+64+6=327
Ответ: 327
(Лучший ответ)
var
a: integer;
begin
writeln('Введите число');
readln(a);
if (a mod 2 = 0) then
writeln('Число является четным') else
writeln('Число является нечетным');
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>
1.
z = 1 + 128/5 = 1 + 64 = 65.
i = 1.
x = 64.
2.
z = 65 + 64/2 = 65 + 32 = 97.
i = 2.
x = 32.
3.
z = 97 + 32/2 = 97 + 16 = 115.
i = 3.
x = 16.
4.
z = 115 + 16/2 = 115 + 8 = 123.
i = 4.
x = 4.
Вывод: 123.
Ответ: 123.