tinh gia tri bieu thuc s=1*2*3*…*n trong pascal

0 bình luận về “tinh gia tri bieu thuc s=1*2*3*…*n trong pascal”

1. Program Tinh_tich;

   Uses crt;

   Var N,i :Integer;

   Begin

   Clrscr;

   Write (‘Hay nhap S: ’);

   Readln (N);

   Writeln (‘Tich la ’, );

   Readln;

   End.

   Hok tốt ????????

   Xin hay nhất 

   Bình luận

2. Program viet_chuong_trinh_tong;

   uses crt;

   var n,i,s:integer;

   Begin  

   Clrscr;  

   write(‘nhap so :’);  

   readln(n);  

   S:=0; 

   for i:=1 to n do S:=S+i; 

   Write(‘Tong =’,S);

   readln;

   End.

   Bình luận