Viết chương trình : Tính tích của n số nguyên đầu tiên Giúp mik vs mình đang cần gấp

0 bình luận về “Viết chương trình : Tính tích của n số nguyên đầu tiên Giúp mik vs mình đang cần gấp”

1. Var s, t : real;

   a ,n : integer;

   Begin

   write (‘n=’) ;

   readln (n) ;

   s:= 0;

   t:= 1;

   For a:= 1 to n do

   s:= s + a;

   t:= t * a;

   Writeln (‘ Tong cua ‘ ,n,’ so dau tien la’ , s );

   Writeln (‘ Tich của ‘ ,n,’ so dau tien la’ , t );

   Readln;

   End.

   Trả lời