Ô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
Ngô Bá Hùng
26 tháng 4 2023 lúc 23:29

program Tong;
var
  n: integer;
  i: integer;
  sum: real;
begin
  write('Nhap so nguyen duong n (chia het cho 5): ');
  readln(n);
 
  sum := 0;
  for i := 1 to n do
  begin
    if i mod 5 = 1 then
      sum := sum + 1/i;
  end;
  
  writeln('Tong A la: ', sum);
  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
Ánh Thi
Xem chi tiết
Phan Văn Thái Dương
Xem chi tiết
Huyên Lê Thị Mỹ
Xem chi tiết
Hồ Nguyên
Xem chi tiết
DuaHaupro1
Xem chi tiết