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.

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

Kết thúc thì S=0

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.

6 tháng 3 2021

*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.

May tính sẽ thực hiện 4 vòng lặp

Kết quả là 12

31 tháng 12 2021

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