Viết phương trình lặp trong pascal tinh : S = 1 × 3 × 5 ×...×29
1 câu trả lời
Program tinhtich;
Uses crt;
Var S ,i: integer;
Begin
For i:=1 to 29 do
Begin
i:=1;
I:=i+2;
S:=1;
S:=S*i;
End;
Write('tich cua chung la',S:2:2);
Readln
End.
Program tinhtich;
Uses crt;
Var S ,i: integer;
Begin
For i:=1 to 29 do
Begin
i:=1;
I:=i+2;
S:=1;
S:=S*i;
End;
Write('tich cua chung la',S:2:2);
Readln
End.
