Ôn tập cuối năm

LH

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

KL
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ự
LH
Xem chi tiết
PT
Xem chi tiết
TL
Xem chi tiết
SZ
Xem chi tiết
PD
Xem chi tiết
AT
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
HM
Xem chi tiết