uses crt;
var i,n,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 300 do
begin
t:=t+i;
if (t>300) then break;
end;
writeln(t);
readln;
end.
Mk đang cần gáp ạ
Viết chương trình để thực hiện tính tổng các số chẵn lẻ liên tiếp hiển thị ra Smax(tổng lớn nhất) và nhỏ hơn 2073
Viết chương trình tìm x=1/n lớn nhất nhỏ hơn 0,001
viết chương trình tính tổng các số tự nhiên nhỏ nhất lớn hơn 1000
Viết chương trình tính tổng các số tự nhiên đầu tiên sao cho tổng nhỏ nhất lớn hơn 500 thì dừng và in ra màn hình tổng và số N nhỏ nhất để tổng lớn hơn 500 sử dụng câu lệnh lặp while...do viết cả phương trình lẫn thuật toán nha....
lập chương trình tính :
+ S1 = 1*2*3*4*...*n ( n là số nguyên )
+ S2 = 10+11+12+13+... sao cho S 2 là số lớn nhất bé hơn 10 000
giúp mình với ạ
viết chương trình tìm số tự nhiên n lớn nhất để tổng 1+2+3+..n< 1000.<cần gấp SOS:((((>
viết chương trình in ra tổng các số nhỏ hơn hoặc bằng n ( với n đc nhập) mai phải thi r mn giúp mk vs
