Viết phương trình lặp trong pascal tinh : S = 1 × 3 × 5 ×…×29

0 bình luận về “Viết phương trình lặp trong pascal tinh : S = 1 × 3 × 5 ×…×29”

1. 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.

   Bình luận