Var i , n : Integer;
A : real;
Begin
write ( ' n = ' ) ; read (n);
A:= 0;
For i := 1 to n do A:= A + 1/i;
Writeln (A);
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 trương trình tính tổng , tích của 3 số nguyên x y z nhập từ bàn phím
viết chương trình tính tổng x, y với x, y được nhập từ bàn phím.
viết chương trình tính trung bình 3 số x, y, z được nhập từ bàn phím
Viết chương trình để tính chu vi và diện tích của hình vuông với cạnh a là số nguyên được nhập từ bàn phím.
viết ct tính tổng:A=1+1/2+1/3+...+1/N (n thuộc z)
a) sử dụng lệnh for...to...do
b)sử dụng lệnh while...do
Viết ct tính tổng sau:
S=1/2+2/3+3/4+4/5+...+n/(n+1)
1)Viết CT nhập vào số N nguyen dương. Hãy đếm xem có bao nhieu số chia hết cho 2 va 5 từ 1-N
5)Viết CT nhập vào 2 số M, N nguyên dương(0MN). Hãy in ra màn hình các số là ước của 1000 từ M đến N
6) Các câu lệnh sau đúng hay sai, vì sao? Nếu sai, hãy sửa lại cho đúng
a.For i:1 to 10 do; write(i:5); b. for i: 100 to 10 do xx-i;
c.For i:100 to200 do i:i+5; d. for i:0*4 to 20*4 do write(i-5);
d. Vả n,i:real;
begin n:0;i:0;...
Đọc tiếp
1)Viết CT nhập vào số N nguyen dương. Hãy đếm xem có bao nhieu số chia hết cho 2 va 5 từ 1->N
5)Viết CT nhập vào 2 số M, N nguyên dương(0<M<N). Hãy in ra màn hình các số là ước của 1000 từ M đến N
6) Các câu lệnh sau đúng hay sai, vì sao? Nếu sai, hãy sửa lại cho đúng
a.For i:=1 to 10 do; write(i:5); b. for i:= 100 to 10 do x=x-i;
c.For i:=100 to200 do i:=i+5; d. for i:=0*4 to 20*4 do write(i-5);
d. Vả n,i:real;
begin n:=0;i:=0;fori:=5 to105 do n:=n+i;end.
Steve trưc nhật vì vậy hôm nay bạn đến trường sớm, giặt khăn lau bảng và xóa bảng. Đang xóa bỗng Steve nhận thấy dãy số mà mình đã xóa một phần khá đặc biệt, phần đầu của nó là 1 2 3 2 3 4 3 4 5 4 5 6 5 6 7 Đáng tiếc, phần còn lại của dãy đã bị xóa mất. Cuối cùng Steve cũng xóa xạch bảng trước khi trống vào lớp vang lên, nhưng dãy số trên vẫn cứ lởn vởn mãi trong đầu. Buổ...
Đọc tiếp
Steve trưc nhật vì vậy hôm nay bạn đến trường sớm, giặt khăn lau bảng và xóa bảng. Đang xóa bỗng Steve nhận thấy dãy số mà mình đã xóa một phần khá đặc biệt, phần đầu của nó là
1 2 3 2 3 4 3 4 5 4 5 6 5 6 7
Đáng tiếc, phần còn lại của dãy đã bị xóa mất. Cuối cùng Steve cũng xóa xạch bảng trước khi trống vào lớp vang lên, nhưng dãy số trên vẫn cứ lởn vởn mãi trong đầu.
Buổi tối, khi lên giường ngủ, Steve lại nghĩ về dãy số này. Steve nhận thấy số 1 xuất hiện 1 lần trong dãy, số 2 xuất hiện 2 lần và lần đầu ở vị trí thứ 2, số 3 xuất hiện 3 lần và lần đầu ở vị trí thứ 3, nhưng số 4 thì lần đầu tiên xuất hiện không ở vị trí thứ 4. Tổng quát hơn số k sẽ xuất hiện lần đầu ở vị trí thứ mấy trong dãy.
Bạn có thể giúp Steve tìm ra vị trí xuất hiện đầu tiên của số nguyên k(k<=1 tỷ) trong dãy không?
VD: NUM25.inp :5
NUM25.out :9
vậy vị trí xuất hiện đầu tiên của 5 trong dãy số đó là 9
Viết CT kiểm tra xem 1 số nguyên được nhập từ bàn phím có tính chất đối xứng hay ko.
Sửa lỗi cho ct viết theo đề bài trên:
uses crt;
var a,n,i:integer;
begin
write('nhap so: ');readln(a);
n:=length(a);
for i:=1 to n do
if a[i] = a[n-i+1] then write('co') else write('khong');
readln
end.
1)Cho ba ví dụ về hoạt động lặp với số lần biết trước
2)Nêu cú pháp cùng tính chất của các thành phần trong câu lệnh lặp với số lần biết trước, cho ví dụ?
3)Hãy mô tả thuật toán tính tổng và tích của các số tự nhiên từ 1 đến N (với N nguyên dương được nhập vào từ bàn phím). Sau đó hãy viết chương trình (CT) Pascal tương ứng cho từng thuật toán
Đọc tiếp
1)Cho ba ví dụ về hoạt động lặp với số lần biết trước
2)Nêu cú pháp cùng tính chất của các thành phần trong câu lệnh lặp với số lần biết trước, cho ví dụ?
3)Hãy mô tả thuật toán tính tổng và tích của các số tự nhiên từ 1 đến N (với N nguyên dương được nhập vào từ bàn phím). Sau đó hãy viết chương trình (CT) Pascal tương ứng cho từng thuật toán