Ôn tập cuối năm

Lê Minh Hiếu

Viết chương trình tính tổng  A=1+1/5+1/10+1/15+⋯+1/n         với n chia hết cho 5,nguyên dương nhập vào từ bàn phím

Viết với vòng lặp for

Kiều Vũ Linh
4 tháng 5 2023 lúc 8:21

var s:real;

i,n,t:integer;

begin

repeat

write('Nhap n > 0 va n chia het cho 5 ');readln(n);

until (n > 0) and (n mod 5 = 0);

t:=round(n/5);

s:=1;

for i:=1 to t do

s:=s+1/(5*i);

write('A = ',s:10:2);

readln

end.

 

Bình luận (0)

Các câu hỏi tương tự
Lê Minh Hiếu
Xem chi tiết
Pham Huynh Bao Thy
Xem chi tiết
Tài Tuệ Lê
Xem chi tiết
siêu phẩm zed
Xem chi tiết
Phan Văn Thái Dương
Xem chi tiết
Ánh Thi
Xem chi tiết
DuaHaupro1
Xem chi tiết
DuaHaupro1
Xem chi tiết
Huyên Lê Thị Mỹ
Xem chi tiết