Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Lily

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ấphihi

Ngô Bá Hùng
17 tháng 4 2023 lúc 20:35

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.


Các câu hỏi tương tự
Đào Nguyên
Xem chi tiết
đỗ thị mai quyên
Xem chi tiết
Hoàng Đình Đức Duy
Xem chi tiết
depgaiqua
Xem chi tiết
Phạm Lê Quỳnh Nga
Xem chi tiết
Tạ Đỗ Thanh Huyền
Xem chi tiết
Trần Nguyễn Thanh Thúy
Xem chi tiết
Pinky Slime 1234
Xem chi tiết
Không Cần Tên
Xem chi tiết