Сумма цыкл for, delphi - Помощь студентам

vadiprog · 20.11.2011, 03:00

BARNEY · 20.11.2011, 07:11

Код:

var i,n,m:integer;
n:=strtoint(edit1.text);
m:=0;
for i:=0 to n do
begin
m:=m+// тут формула
end;
edit1.text:=inttostr(m);

20.11.2011, 03:00	#1
vadiprog Пользователь Регистрация: 24.09.2011 Сообщений: 96	Сумма цыкл for, delphi

20.11.2011, 07:11	#2
BARNEY Участник клуба Регистрация: 23.04.2009 Сообщений: 1,058	Код: `var i,n,m:integer; n:=strtoint(edit1.text); m:=0; for i:=0 to n do begin m:=m+// тут формула end; edit1.text:=inttostr(m);` Если вам человек помог, не стесняйтесь говорить спасибо (весы под аватаром)