hãy tìm hiểu các thuật toán sau đây và cho biết khi thực hiện thuật toán này, máy tính sẽ thực hiện bao nhiêu vòng lặp. Khi kết thúc giá trị S bằng bao nhiêu , viết pt pascal thể hiện thuật toán đó.
B1: S<- 10, n<-10
B2: Nếu S > hoặc = 10, chuyển tới bước 4.
B3: n <- n+3, S<-S-n quay lại bước 2.
B4: Thông báo S và kết thúc thuật toán.
Giúp mình với, mình cần gấp lắm. Cảm ơn các bạn nhiều nha!!!
vòng lặp không thực hiền lần nào
nên giá trị S không thay đổi(s=10)
Chương trình:
program oken;
uses crt;
var n,s: byte;
begin
clrscr;
s:=10; n:=10;
while s<10 do
begin
n:=n+3;
s:=s-n;
end;
writeln(‘Gia tri cua S: ‘,s);
readln;
end.