lam on giup minh voi thu nam minh kiem tra roi
Sử dụng For...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0;
Đối với t: = 1 đến n làm s: = s + 1 / t;
writeln('Tổng s là',s);
readln
kết thúc.
Sử dụng While...do
Chương trình tinhtong;
trong đó n, t: số nguyên;
s: thật;
bắt đầu
write('Nhập số n');readln(n);
s: = 0; t: = 1;
Câu 2:Trong khi t <= n làm
bắt đầu t: = t + 1;
s: = s + 1 / t kết thúc;
writeln('Tổng s là',s);
readln
kết thúc.
2)
Program tinh_tong; Uses Crt; Var i, n: integer; S: Real; Begin Clrscr; Write (' nhap so tu nhien n: '); Readln (n); S:=0; for i:=1 to n do S :S+1/i ; Write (' Tong S la: ', S: 8: 2 ); Readln; End.