Question

[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

Answer 1

[Kiều Vũ Linh]

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.