Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
NHÓC BOSS GAMING

Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.

Me God
16 tháng 3 2023 lúc 20:28

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.


Các câu hỏi tương tự
Ba chú heo con
Xem chi tiết
Mikan Sakura
Xem chi tiết
Ho Truong Minh
Xem chi tiết
kevin khánh
Xem chi tiết
Cold Wind
Xem chi tiết
Nguyễn Minh Lệ
Xem chi tiết
sunion Ghast
Xem chi tiết
Khải Ji
Xem chi tiết
nguyen ngoc minh chau
Xem chi tiết