NgọcKhuyến Phan

Viết chương trình tính tổng của 1 phần 1 + phần 2 + 1 phần 3 + 1 phần 8

Phía sau một cô gái
11 tháng 3 2023 lúc 15:40

program TinhTong;

var

     i: Integer;

     s: Real;

begin

     s := 0;

     for i := 1 to 8 do

     begin

          s := s + 1 / i;

     end;

     writeln('Tong la: ', s:0:2);

     readln;

end.


Các câu hỏi tương tự
Minh Duy
Xem chi tiết
Mai Phương Lê
Xem chi tiết
Lương Trần Phương Linh
Xem chi tiết
Bùi Nam
Xem chi tiết
V.Phương
Xem chi tiết
Dương Quỳnh Chi
Xem chi tiết
Nguyễn Ngọc Thiện Nhân
Xem chi tiết
Thùy Linh Võ
Xem chi tiết
Layla
Xem chi tiết