DT

viết chương trình tính tổng sau theo cách làm của tin lớp 8

s = 1 + 1/2 + 1/3 + .... + 1/n

bạn nào học giỏi tin trả lời giúp mình

LH
11 tháng 2 2021 lúc 15:54

program chia_n;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

Write('Hay nhap so n ');readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

nhớ tick cho mik nha!

Bình luận (0)

Các câu hỏi tương tự
NH
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
AK
Xem chi tiết
US
Xem chi tiết
H24
Xem chi tiết
PT
Xem chi tiết
H24
Xem chi tiết
PL
Xem chi tiết