|
#1
|
|||
|
|||
Delphi 7. Циклы.
Дано натуральное n. Вычислить: y = 1 * 3 * 5x...
|
#2
|
||||
|
||||
Цитата:
Код:
... var i,n,res: Integer; begin n := 10; res := 1; for i:=1 to n{твоё N число}do begin res := res * i; end; ShowMessage('N='+IntToStr(n)+#13+'Результат='+IntToStr(res)); ... TAleD = class(TUser) public function HelpMe(ASubject, ARequest: String): String; function GiveMeExample(ASubject: String): TStringList; procedure WriteReview(APost: Integer; ADescription: TStringList); end; |