viết chương trình tính tổng S=1/1+2/2+3/3+4/4+...+n/n với n đc nhập từ bàn phím
2 câu trả lời
uses crt;
var i,n: integer;
s: real;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do s:=s+(i/i);
writeln ('tong la: ',s:1:2);
readln;
end.
cái đề này ý chỉ n đó
Vd: với n=3
1/1+2/2+3/3
=1 +1 +1
=3
Vậy kết quả sẽ bằng n nhưng mà để đúng với đề thì mình sẽ làm chương trình luôn
program tinhtong;
uses crt;
var n,i:integer;
t:real;
begin
clrscr;
write('Nhap n: '); readln(n);
t:=0;
for i:=1 to n do
t:=t+i/i;
write('Tong la: ',t:2:0);
readln
end.
Câu hỏi trong lớp
Xem thêm
