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

Hãy liệt kê các lỗi có thể có trong chương trình dưới đâyy và sửa lại cho đúng Progtam Thi_HK1 Var a= integer b=real Const c = 5 Begin a=100 b=a/c Write(b) Readln End

Hãy liệt kê các lỗi (nếu có) trong chương trình Pascal dưới đây và sửa lại cho đúng:

program dientich;
Const Pi:=3.1416;
var cv,dt : integer ;
 r : real;
begin 
r:=5.5;
cv:=2*pi;
dt :=pi*r*r ;
writeln ('chu vi la',cv)
writeln ('dien tich la',dt)
readln 
end.

Hãy liệt kê các lỗi nếu 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.

Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end

Các khai báo biến sau đúng hay sai? Nếu sai hãy chỉ ra lỗi sai và sửa lại cho đúng

1. Var tb :=real;

2. Var 8a2 : integer;

3. Var A, B : integer;

4. Var T : Real;

5. Var X = 5.

II. TU LUAN (64) Câu 9 (1.5 điểm). Chỉ ra lỗi sai trong các chương trình dưới đây và sửa lại cho đúng

(C) program tinh_a_mu_ng

var i,n: integer;

a, gia tri: real;

begin

write ('Cho so a: ');readln(a);

write ('Cho so mu n:');readin(n)

i :=1 giatri := 1 ;

while i < n do

begin

giatri :=giatri* a;

i:= i + 2

end;

writeln('a mu n bang : ", giatri);

end.

Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh;

usescrt;

var A, B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’); readln(A);

writeln(‘Nhap so B: ‘); readln(A);

if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)

readln;

End.