Tính tổng các số tự nhiên do người dùng nhập từ bàn phím đến khi tổng lớn hơn 100 thì thông báo tổng S rồi kết thúc.
*THUẬT TOÁN:
-Bước 1: S <- 0, x <- 0,
-Bước 2: Nếu ' not (S>100) ‘thì
2.1: Nhập giá trị của x
2.2: S <- S+x, quay về bước 2
-Bước 3: Thông báo tổng S rồi kết thúc
*MỌI NGƯỜI GIÚP MIK VIẾT CHƯƠNG TRÌNH NHA
Tính tổng các số tự nhiên do người dùng nhập từ bàn phím đến khi tổng lớn hơn 100 thì thông báo tổng S rồi kết thúc. *THUẬT TOÁN: -Bước 1: S <-
By Josephine
program tinhtong;
uses crt;
var s,x:integer;
begin
s:=0;
while not(s>100) do
begin
write(‘Nhap x: ‘); readln(x);
s:=s+x;
end;
write(‘Tong cac so la: ‘,s);
readln
end.
program phuongt;
uses crt;
var s, n: integer;
begin
clrscr;
s:=0;
while s<100 do
begin
write(‘Nhap n = ‘); readln(n);
s:=s+n;
end;
wirte(‘Tong = ‘, s);
readln
end.