Lập trình tính tổng: a) T= $\frac{1}{5}$ +$\frac{1}{6}$+... $\frac{1}{99}$ +$\frac{1}{100}$ Để viết chương trình tính tổng T. Ta có thể sử dụng lệnh lặp với số lần lặp cho trước for.......do T:=0 For i:=5 to 100 do T:=T + 1/i; writeln('Tong cua day la',T:5:2);
2 câu trả lời
Program tinh_tong;
Uses crt;
Var i: byte;
T: real;
Begin
T:=0;
For i:= 5 to 100 do
T:= T+ 1/i;
Writeln ('Tong cua day la:',T:5:2);
Readln
End.
Program ct;
Uses crt;
Var T,i,n:integer;
Begin
Clrscr;
Write('nhap so bat ki:');readln(n);
T:=0;
For i:=5 to 100 do T:=T+1/n;
Writeln('tong la:',T:3);
Readln
End.