oanh hoàng
Hỏi từ APP VIETJACK
Viết ct tính tổng
Quảng cáo
2 câu trả lời 460
4 năm trước
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.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44654
-
Hỏi từ APP VIETJACK26196
Gửi báo cáo thành công!