Question

Cho thuật toán sau:

Bước 1: Nhập n.

Bước 2: S <--0; i <--0

Bước 3: i <-- i + 1

Bước 4: Nếu i lớn hơn hoặc bằng n, S <-- S + i và quay lại bước 3; 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 phương trình Pascal để thể hiện thuật toán trên\(\)

Answer 1

uses crt;
var n,i,s:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
s:=0;i:=0;
i:=i+1;
while i>=n do
begin
s:=s+i;
i:=i+1;
end;
{ write(.........); }
readln
end.

P/S: Vì đề bài chưa cho biết in ra gì nên mình bỏ trống phần write nha bạn