Question

cho thuật toán sau:

b1: nhập n

b2: s<- 0 i<- 0

b3: i <- i+1

b4: nếu i nhỏ hơn hoặc bằng n ,S <- S+i và quay lại b3 ngược lại (i > n) thông báo kết quả và kết thúc thuật toán

hãy viết chương trình Pascal để thể hiện thuật toán trên mn giúp e với mai em thi hk2

Answer 1

uses crt;
var s,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0; i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.