em hãy cho biết thuật toán máy tính thực hiện bn vòng lặp? kết thúc của S bằng bn ? viết chương trình bằng pascal để mô tả thuật toán
B1:S<-20,N<-1,
B2:nếu S<HOẶC =6 CHUYỂN B4,
B3 N<-N+1, S<-S-N VÀ QUAY LẠI B2,
B4 THÔNG BÁO S VÀ KẾT THÚC THUẬT TOÁN
mn chỉ em với e cần gấp ạ
*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.