uses crt;
var n:int64;
begin
clrscr;
n:=maxint;
while 1/n>=0.0005 do
begin
n:=n-1;
end;
writeln(n);
readln;
end.
Đúng 4
Bình luận (0)
Bài 8. Lặp với số lần chưa biết trước
Các câu hỏi tương tự
Viết chương trình cho biết tổng nhỏ nhất lớn hơn 10 của N số tự nhiên đầu tiên là bao nhiêu?
Xem chi tiết
1/Viết chương trình nhập vào một mảng số nguyên sắp xếp lại mảng đó theo thứ tự giảm dần
2/ Viết chương trình cho phép nhập vào 1 mảng gồm N phần tử, cho biết số nhỏ nhất trong các số vừa nhập là số thứ mấy
giúp em với ak
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 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)
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....
Viết chương trình tìm số N nhỏ nhất để 1/N<0.0005
Câu 1: viết chương trình tích P của các số tự nhiên nhỏ hơn bằng 5Câu 2: viết chương trình tính tích các số tự nhiên lẻ từ 1 đến 10 Câu 3: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đến nGiúp với , theo kiểu câu lệnh while do
Xem chi tiết
Với một dãy số hữu hạn bất kỳ ta luôn tìm được số nhỏ nhất trong dãy số đó. Ví dụ: Dãy số gồm 5 phần tử: 7, 8, 4, -9, 9; Số nhỏ nhất trong dãy số trên là -9. Yêu cầu: Viết chương trình tìm phần tử nhỏ nhất của dãy n số nhập vào từ bàn phím. Kết quả xuất ra màn hình. --HẾT---
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím