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

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.

28 tháng 4 2017

cần gấp ạ

28 tháng 4 2017

a/ 7 vòng lặp

b/ biến bằng 1,2,3,4,5,6,7

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.