Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>=5 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
*Chương trình
Program nnn;
Uses crt;
Var S, N:real;
Begin
Write ('Nhap N');
Readln (N);
S:=20;
N:=1
If (S>=6) then N:=N+1 and S:=-S-N else write ('Ket qua S',S);
Readln;
End.
uses crt;
var s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while s>6 do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
a: Thuật toán sẽ thực hiện 5 vòng lặp
Kết thúc thì S=0
b: uses crt;
var i,s,n:integer;
begin
clrscr;
s:=20;
n:=1;
while (s>=5) do
begin
n:=n+1;
s:=s-n;
end;
writeln(s);
readln;
end.
Nếu ở b2 khi S<=5 thì ta có tổng cộng 8 vòng lặp
Cách làm
B1: S:=13, x:=1
B2: Nếu S<=5 thì sang b4
B3: S:=S-x tức 13-1 và quay lại b2 cho đến khi 13 - 8 lần 1 thì kq sai, không vào vòng lặp nữa thì:
B4: S=5 và kết thúc thuật toán
Mình chỉ biết cách làm bài kiểu này thôi! Nếu đúng thì tham khảo bài mình nhé! Và lần sau bạn cần viết đúng các dấu hiệu để không làm sai đề bài nha :D
S=15
Số lần lặp là 4 lần
mk cảm ơn nhiều