K
Khách

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.

Thuật toán sẽ chạy 5 vòng lặp

Kết thúc thì S=0

21 tháng 3 2023

Đề đầy đủ không bạn chứ mình k thấy chương trình ở câu hỏi

 

31 tháng 12 2021

Sẽ thực hiện 5 vòng lặp

13 tháng 5 2022

5 vòng lặp