Bài 5. Từ bài toán đến chương trình

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Phương Nguyễn Diệu

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\(\)

Nguyễn Trung Hiếu
3 tháng 5 2019 lúc 21:37

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


Các câu hỏi tương tự
The Love
Xem chi tiết
Trần Phương Thảo
Xem chi tiết
Nguyễn Trúc Như
Xem chi tiết
Gia Bảo Trịnh
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
nguet a. (ckao)
Xem chi tiết
Vy Nguyễn Đặng Khánh
Xem chi tiết
♥ Bé Heo ♥
Xem chi tiết
phạm ngọc hân
Xem chi tiết