среднее геометрическое чисел

[True_Evil]

да да, работой отвлекли, совсем забыл что найти нужно было
все исправил, теперь там корень i степени из произведения

[rzd]

не получается у меня так! выходит вот так! но вроде все верно считает
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
cSrGeom:currency;
begin
i:=1;
cSrGeom:=1;
S:=edit1.text;
while (i<=length(s))
and
(s[i]<>'0') do
begin
cSrGeom:=cSrGeom*strtoint(s[i]);
inc(i);
end;
dec(i);
cSrGeom:=Exp(1/i * ln(cSrGeom));
X:=floattostr(cSrGeom);
edit2.Text:=X;
end;
end.
сейчас доделаю чтобы ноль тормозил дальнейший ввод и все готово!
Честно говоря на подобном форуме впервые и просто шокирован такой отзывчивостью и пониманием! Всем огромное спасибо!

[Карась]

Сообщение от Stilet

А как тогда завершать ввод строки?

Так ведь Edit1.Enabled := False.... Заблокированно для ввода.

[Stilet]

Так ведь Edit1.Enabled := False.... Заблокированно для ввода.

Эт я вижу, я думаю как прога узнает что все?
Ну вообще думаю что тема исчерпана.