sử dụng vòng lặp while…do(pascal):
a)hãy viết chương trình tính tổng các số tự nhiên chẵn đầu tiên sao cho tổng đó nhỏ hơn 1000
b)in lên màn hình tổng nhỏ nhất lớn hơn 1000
c)in lên màn hình tổng lớn nhất nhỏ hơn 1000
d)in lên màn hình số tự nhiên nhỏ nhất để tổng các số tự nhiên chẵn trước đó nhỏ hơn 1000
e)in lên màn hình số tự nhiên lớn nhất để tổng các số tự nhiên chẵn trước đó nhỏ hơn 1000
Các bạn giúp mình với,mình đọc đề mà không hiểu gì luôn ớ-.-
Câu a)
Program BTT;
Uses crt;
Var i,s: longint;
Begin
Clrscr;
s:=0;
i:=0;
While s<1000 do
Begin
i:=i+2;
If s<1000 then
s:=s+i
If s>=1000 ten
Begin
s:=s-i;
Break;
End;
mik biết có vậy thui
Câu a)
Program BTT;
Uses crt;
Var i,s: longint;
Begin
Clrscr;
s:=0;
i:=0;
While s<1000 do
Begin
i:=i+2;
If s<1000 then
s:=s+i;
If s>=1000 then
Begin
s:=s-i;
Break;
End;
End;
Write(‘S = ‘,s);
Readln
End.
Câu e)
Program BTT;
Uses crt;
Var i,s: longint;
Begin
Clrscr;
s:=0;
i:=0;
While s<1000 do
Begin
i:=i+2;
If s<1000 then
s:=s+i;
If s>=1000 then
Begin
s:=s-i;
Break;
End;
End;
Write(‘So = ‘,i+1);
Readln
End.