Тема: народ плз выручайте
Показать сообщение отдельно

  #4  
Старый 27.02.2010, 18:49
flacs
Познающий
Регистрация: 28.01.2009
Сообщений: 90
С нами: 9096406

Репутация: 80
По умолчанию
Код:
function SumN(n: cardinal): integer;
Result:=0;
for i:=1 to n do inc(Result,i);
end;
 
Ответить с цитированием