Question

Tìm lỗi sai và chữa đúng :

Program bai tap;

Var a,b,c, TB = Integer

Const n : 3

Begin

Writeln('nhap vao ba so a,b,c ) ; Readln ( a,b,c )

TB:=(a+b+c)/n;

Writeln('Trung binh cong cua 3 so do la :TB');

Readln

End

 

Answer 1

Đìu lần nào sửa cũng quên :

Program baitap;

Var a,b,c: Integer, TB:real;

Const n = 3;

Begin

Writeln('nhap vao ba so a,b,c ') ; Readln ( a,b,c );

TB:=(a+b+c)/n;

Writeln('Trung binh cong cua 3 so do la ',TB);

Readln

End.

Answer 2

Chỉ có begin đúng

Answer 3

Program bai_tap;

Var a,b,c, TB : Integer;

Const n = 3;

Begin

Writeln('nhap vao ba so a,b,c' ) ; Readln ( a,b,c );

TB:=(a+b+c)/n;

Writeln('Trung binh cong cua 3 so do la : ',TB);

Readln

End.

-Dịch thử ct đi, nếu còn sai => sửa tiếp.

Answer 4

nếu chạy ct ở dưới, pascal sẽ báo lỗi.

Sửa: khai báo biến TB tại kiểu dữ liệu real:

......

var a,b,c:integer;

TB : real;

.......

Answer 5

Sai hết

Answer 6

Chắc là cái máy tính nó ghét you ^^! Nói vậy thôi chứ pascal báo lỗi như nào? Báo nhiều lỗi ko?

Answer 7

má ơi

Answer 8

tên chương trình sai

"=" (var) => ":"

Const n =3;

readln(a,b,c);

writeln('Trung binh cong cua 3 so do la :',TB);

end.

tự thêm ; nơi cần thiết thiếu nhiều

TB là real

 

 

Answer 9

Quá dễ =)

Program baitap;

Var a,b,c: Integer; TB:real;

Const n = 3;

Begin

clrscr; ( nên có, không có không sao )

Writeln('nhap vao ba so a,b,c ') ; Readln ( a,b,c );

TB:=(a+b+c)/3;

Writeln('Trung binh cong cua 3 so do la ',TB);

Readln

End.

Answer 10

Nhầm , ct đúng đây

Program bai tap;

Var a,b,c: integer ; TB : real;

Const n = 3

Begin

Writeln('nhap vao ba so a,b,c ' ) ; Readln ( a,b,c );

TB:=(a+b+c)/n;

Writeln('Trung binh cong cua 3 so do la ',TB);

Readln

End