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