Question

Viết chương trình 1+2+3+...+1/t. Hôm nay cô cho bài này để ôn mai tớ thi r

Answer 1

tham khảo

Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer; 
S:real; 
begin; 
write('nhap n = '); 
readln(n); 
s:=0; 
for i :=1 to n do S :=S + 1/i; 
writeln('tong S = ',S:5:2); 
readln 
end.

Answer 2

tham khảo

Program chuong_trinh_tinh_tong;
User crt;
var n,i:integer; 
S:real; 
begin; 
write('nhap n = '); 
readln(n); 
s:=0; 
for i :=1 to n do S :=S + 1/i; 
writeln('tong S = ',S:5:2); 
readln 
end.