Var i,p:integer;
Begin
i:=0;
p:=1;
While p<=120 do
Begin
i:=i+1;
p:=p*i;
End;
Write('So can tim la ',i);
Readln;
End.
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Viết chương trình tìm số N nhỏ nhất thỏa mãn biểu thức sau 1*2*3*...*N>120
cho số nguyên dương N (10<=N<=10^6). hãy đếm số lượng các số nguyên dương a nhỏ hơn N (10<=a<=N) thỏa mãn điều kiện: a có ít nhất 2 chữ số, đồng thời a có tất cả các chữ số giống nhau và chia hết cho 9.
viết chương trình đếm các số a thỏa mãn
Viết chương trình tính biểu thức sau :
a) S=1+2+3+...+n với (n từ 30-90)
b) Tìm n để S >1000 với S = 1+2+3+...n
1) Viết chương trình nhập vào số tự nhiênn có m chữ số(0<m<10) tìm số nhỏ nhất và lớn nhất.
2) Nhập vào số thực A, tìm số tự nhiên N nhỏ nhất sao cho S=1+1/2+1/3+1/4+...+1/N. Xin cảm ơn.
9 tháng 4 2023 lúc 20:44
Viết chương trình tính tổng sau: S=1+2+3+...+n. Sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).
viết chương trình nhập n từ bàn phím .TÍnh tổng biểu thức sau S=1^2+2^2+3^2+...+N^2
VIẾT CHƯƠNG TRÌNH TÍNH TỔNG S = 1+2+3+....N SAO CHO TỔNG S NHỎ NHẤT > 700 KHI CHẠY CHƯƠNG TRÌNH SẼ CHO KẾT QUẢ NHƯ SAU: S NHỎ NHẤT ĐỂ TỔNG > 700 LÀ= 38 S ĐẦU TIÊN LỚN HƠN 700 LÀ = 703
Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.
Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số
Viết chương trình tìm n nhỏ nhất để tổng các số từ 1 đến n lớn hơn 1000 ( sử dụng while)
20 tháng 4 2023 lúc 21:22
viết chương trình nhập n số nguyên nhập từ bàn phím tìm số nhỏ nhất trong thony