Question

Câu 1: Hãy điền đúng , sai (đánh dấu x) và sửa chương trình sau: (3điểm)

Viết chương trình tính H và tìm n biết H=  và H >1.85

 

 

 

Câu lệnh	Đ	S	Sửa lỗi
Use_Crt;
Var I, n,H :interge;
Begin;
H:=1; n:=0;
clrscr;
while H<= 1.85 do
begin n:=n+2;
if n mod 2 =1 then H:= H+1/n;
End.
writeln('so can tim la ,n,’tong la:,H);
readln end;