2) Tính tổng: B1: Nhập n; B2: i <- 1; S <- 1; B3: Nếu i > n thì đưa ra S và kết thúc. B4: i <- i + 1; S <
2 câu trả lời
uses crt;
var i,n: integer;
s: longint;
begin
clrscr;
write ('nhap n: ');
i:=1;
s:=1;
for i:=1 to n do
s:=s+i;
writeln ('S= ',s);
readln;
end.
Uses Crt
var i,n : interget ;
S : longint ;
begin
clrscr
write ( ' nhap n : ') ;
i:=1
s:=1
for i:= to n do
s : = s+1
writeln ( 'S = ', s ) ;
readln
END .# HOIDAP247 , QUANGMVP2K3 ^^
