Question

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 ạ

 

Answer 1

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

 

Answer 2

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.