program bai1;
var i,c:longint;
s:real;
begin
readln(c);
i:=1;
while 1/i<c then
begin
s:=s+1/i;
i:=i+1;
end;
writeln(i);
wirte(s);
readln
end.
Đúng 0
Bình luận (0)
Lập trình đơn giản
Các câu hỏi tương tự
Viết chương trình nhập vào 1 số nguyên n
không âm, in ra màn hình số lượng số dương lớn hơn n và nhỏ hơn hoặc bằng n^2
ngôn ngữ c++
help me plssssssssssssssssssssssssssssssssssssssssss
Viết chương trình nhập vào 1 mảng số nguyên. In ra màn hình giá trị trung bình của mảng đó và các phân tử lớn hơn giá trị trung bình của mảng đó.
Viết chương trình nhập biến mảng M gồm 100 phần tử thuộc kiểu số nguyên +nhập các phần tử và in ra màn hình + tìm và in ra màn hình giá trị lớn nhất trong dãy số vừa nhập +tìm và in ra màn hình giá trị nhỏ nhất trong dãy số vừa nhập
1. Viết chương trình nhập vào một số nguyên dương n và in ra màn hình dãy số tự nhiên từ 1 tới n. 2. Viết chương trình nhập vào một số nguyên n và in ra màn hình các số nguyên chẵn trong khoảng từ 1 tới n.
a, Viết chương trình pascal nhập vào một dãy số nguyên n từ bàn phím b, in dãy vừa nhập ra màn hình. c, đếm xem bao nhiêu số dương. d, in kết quả số dương ra màn hình.
Bài 1: Viết chương trình nhập số nguyên dương n. Tính tổng các số chẫn chia hết cho 3 nhỏ hơn hoặc bằng n
Bài 2: Viết chương trình nhập vào 3 số nguyên dương a, b, c. Tìm ước chung lớn nhất của 3 số
Viết chương trình nhập vào giá trị a. In ra màn hình số n lớn nhất sao cho tổng các số từ 1 đến n nhỏ hơn hoặc bằng a
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3. *
Viết chương trình nhập vào một số nguyên dương n. Tính và in ra màn hình tổng các số từ 1 đến n thỏa mãn điều kiện không chia hết cho 3