Question

Tìm lỗi sai của chương trình sau và sửa lại cho đúng:

Program câu 1;

Var n: Integer; s:real;

Begin

Writeln(‘ Nhap gia tri n=’); Readln;

S:=0;

While n >0 do

s:=s+n/2; n:=n-1;

write(‘tong s = ‘, s:8:2);

Readln;

End.

Mn giải giúp mik vs ạ. Mik cảm ơn ạ

Answer 1

Program câu 1;

Var n: Integer; s:real;

Begin

Writeln(‘ Nhap gia tri n=’); Readln(n);

S:=0;

While n<0 do

begin

s:=s+n/2; n:=n-1;

end;

write(‘tong s = ‘, s:8:2);

Readln;

End.

Answer 2

Lỗi sai:

Program câu 1; -> Tên chương trình không chứa dấu cách trắng.

-> Sửa: Program cau_1;

Writeln(‘ Nhap gia tri n=’); Readln; -> Nhập giá trị cho n nhưng thiếu lệnh đọc n

-> Sửa: 

Writeln(‘ Nhap gia tri n=’); Readln(n);

While n >0 do

s:=s+n/2; n:=n-1;

Cả 2 câu lệnh s:=s+n/2; n:=n-1; đều nằm trong vòng lặp while..do nên cần begin...end con. 

-> Sửa 

While n >0 do

begin

s:=s+n/2; n:=n-1;

end;