Тема: Помогите новичку
Показать сообщение отдельно
  #2  
Старый 10.06.2012, 19:12
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
  
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию
Вот так:
Код:
Ls:= 0;
For n:= 0 To _N Do Ls:= Ls + (n*Pn);
__________________
If end Then begin;
Ответить с цитированием