program tinh;
uses crt;
var n: integer;
A: real;
begin
clrscr;
A:=1; n:=1;
while A <= 5000 do
begin n:=n+1; A:=A*n end;
write('Ket qua N! ma N! be hon hoac bang 5000 la ',A);
readln
end.
Cho em hỏi đề bài viết chương tính tổng các số tự nhiên nhỏ hơn hoặc bằng N
Sao cho tổng đó bé hơn hoặc bằng 0
Viết chương trình tính tổng 1+5+10+15+...+n Giúp em vs ạ đg cần gấp!!
Viết chương trình tìm số N . Sao cho tổng từ 1 đến N bé hơn hoặc bằng 100 . T = 1+ 2+3 ........+ ? = 100
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
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
Câu hỏi: Viết chương trình tính n!
_______________________________________
Mọi người giúp mình với, mình đang cần gấp ạ!
Viết chương trình tính số n nhỏ nhất để 1/n nhỏ hơn một sai số cho trước
Viết chương trình tính tổng của n số tự nhiên đầu tiên sao cho tổng nhỏ hơn hoặc bằng 1000.
giúp mình với thứ 6 thi rồi.
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 ạ
