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
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
By Everleigh
By Everleigh
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
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.