Question

hãy liệt kê các lỗi có trong chương trình dưới đây và sửa lại cho đúng:
           Var a,b :=integer;
           Const c :=3;
           Begin
              a :=200
              b :=a/c;
              write(b);
              readln
           end

Answer 1

Var a,b:integer;
           Const c =3;
           Begin
              a :=200;
              b :=a/c;
              write(b);
              readln; (ủa readln cái j)
           end.

Answer 2

 Var a,b :integer;     (bỏ dấu =)
           Const c =3;     (bỏ dấu :)
           Begin
              a :=200;      (thêm ;)
              b :=a/c;       
              write(b);
              readln;       (thêm '' cơ mà read cái j)
           end.                 (thêm '.')