DẠNG 1: TÌM LỖI VÀ SỬA LỖI
Câu 1.
Var s,i: longint;
Begin
S:=0.5
i = 1;
while s ≤ 5.5 do
s = s+i;
write(‘s = ‘,s);
end;
Câu 2.
Var p,i,n: real;
Begin
Readln(n)
p:=1;
for i=1 to n do
p= p*i/(i+1);
write(‘p = ‘,p);
end;
Câu 3.
Var a:array[1: 50] of longint;
n,s,i: real;
Begin
Readln(n);
For i:=1 to n do
Readln(a(i));
S:=0;
For i:= 1 to n do
S:= s+a(i);
write(‘s = ‘,s);
end.
giúp mình với mình đang cần gấp
câu 1:
Var s, i: longint;
Begin
S := 0; //Thiếu dấu chấm phẩy ở đey
i := 1;
while s <= 5 do //Sửa lại điều kiện dừng vòng lặp và cộng thêm i vào s ở bên trong vòng lặp
begin
s := s + i;
i := i + 1;
end;
write('s = ', s);
end.
câu 2:
Var p, i, n: real;
Begin
Readln(n);
p := 1;
for i := 1 to n do //Sửa lại phần khai báo biến lặp và dấu bằng
begin
p := p * i / (i + 1);
end;
write('p = ', p);
end.
câu 3:
Var a: array [1..50] of longint;
n, s, i: real; //Thiếu dấu chấm phẩy ở đey
Begin
Readln(n);
For i := 1 to n do
begin
Readln(a[i]); //Sửa lại cách truy cập vào ptu của mảng
end;
S := 0;
For i := 1 to n do
begin
S := S + a[i];
end;
write('s = ', S); //Sửa lại tên biến trong write
end.
