Trang chủ
Giải bài tập OnlineĐấu trường tri thức
Dịch thuật
Flashcard - Học & Chơi
Cộng đồngTrắc nghiệm tri thức
Khảo sát ý kiến
Hỏi đáp tổng hợp
Đố vui
Đuổi hình bắt chữ
Quà tặng và trang trí
TruyệnThơ văn danh ngôn
Xem lịchCa dao tục ngữXem ảnhBản tin hướng nghiệp
Chia sẻ hàng ngày
Bảng xếp hạngBảng Huy hiệuLIVE trực tuyếnĐề thi, kiểm tra, tài liệu học tập
Bằng cách nhấp vào Đăng nhập, bạn đồng ý Chính sách bảo mật và Điều khoản sử dụng của chúng tôi. Nếu đây không phải máy tính của bạn, để đảm bảo an toàn, hãy sử dụng Cửa sổ riêng tư (Tab ẩn danh) để đăng nhập (New Private Window / New Incognito Window).
program tinhtong;
uses crt;
var i, n : integer; S : real;
begin
clrscr;
writeln('Nhap so thu n: '); readln(n);
S:=0; i:=1;
while i<=n do begin
S:=S+1/i; i:=i+1;
end;
writeln('Tong la: ',S:2:3);
readln
end.
Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi
| Vui | Buồn | Bình thường |
Trợ lý ảo
+500k 
+500k 
Trả lời nhanh trong 
Xem thêm 
Thưởng th.11.2024
Bảng xếp hạng
