Tin học 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. 12/07/2021 By Josie 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. Trả lời
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. Trả lời