K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

13 tháng 3 2023

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.

13 tháng 3 2023

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;

 

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

6 tháng 3 2023

Bài 1

Lỗi:

1) Program bai 1; => sửa: Program bai1;

2) Var x; n: integer; => sửa: Var x, n:integer;

3) X = 12 => sửa: x:=12;

-------------------

Bài 2

Lỗi

1) Program 2bai; => sửa: Program bai2;

2) Var i, n, s:integer;

3) S:=0 => sửa S:=0;

4) For i:=0,5 to n do => sửa: For i:=1 to 5 do

5) S=S+i; => sửa: S:=S+i;

3 tháng 4 2022

PROGRAM Ten_KTGK_DTNT_Buon_Ho;

VAR i: Real;

S: integer;

Begin

S := 0;

For i := 1 To 20 Do

S:= S+i;

Write (‘Tong S =’ , S);

End.

DẠNG 1: TÌM LỖI VÀ SỬA LỖICâ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;           ...
Đọc tiếp

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

1
17 tháng 4 2023

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.

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.