Question

Вычислить: у=1×3×5×...×(2n-1),n>0. Написать
программу( циклический алгоритм).

Answer 1

на buttonclick пишешь
var n:integer;
begin 
label1.caption:='1';
for n:=1 to 50 do 
label1.caption:=floattostr(strtoint(label1.caption)*(2n-1))