Viết chương trình tính tổng n số tự nhiên đầu tiên, với n được nhập từ bàn phím.
0 bình luận về “Viết chương trình tính tổng n số tự nhiên đầu tiên, với n được nhập từ bàn phím.”
Var i ,n : integer;
S , T : real;
Begin
write (‘n=’) ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (‘ Tong cua ‘ ,n,’ so dau tien la’ , S );
Writeln (‘ Tich của ‘ ,n,’ so dau tien la’ , T );
Readln;
End.
Var i ,n : integer;
S , T : real;
Begin
write (‘n=’) ; read (n) ;
S:= 0;
T:= 1;
For i:= 1 to n do
S:= S + i;
T:= T * i;
Writeln (‘ Tong cua ‘ ,n,’ so dau tien la’ , S );
Writeln (‘ Tich của ‘ ,n,’ so dau tien la’ , T );
Readln;
End.
program Tinh_tong ;
var n,i : interger ;
S : longint ;
begin
write (‘Nhap so n = ‘); readln(n) ;
S:=0 ;
for i := 1 to n do S :=S+i ;
writeln (‘Tong cua n ‘ ,n, ‘ so tu nhien dau tien S = ‘ ,S) ;
readln ;
end.