Question

Dựa vào đoạn chương trình sau, em hãy sử dụng cấu trúc 1 chương trình và các khai báo cần thiết để viết chương trình hoàn chỉnh đưa ra được giá trị biến S và số vòng lặp sau khi chạy chương trình S:=0; n:=0; while S<=50 do begin n:= n+1; S:= s+n end;

 

Answer 1

uses crt;

var s,n:integer;

begin

clrscr;

s:=0;

n:=0;

while s<=50 do 

begin

n:=n+1;

s:=s+n;

end;

writeln(n);

writeln(s);

readln;

end.