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.

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

uses crt;

var A B: integer;

begin

clrscr;

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

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

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

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;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.

Có 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 Soam Soduong;

uses crt

var A, B: integer;

Begin

clrscr;

writeln(Nhap so A: );

readln(A);

if A > 0 then writeln(A,’ la so duong ‘);

else writeln(A,‘ la so am ’);

readln;

End.

Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End

10.  Hãy tìm lỗi sai và sửa lại cho đúng.

Uses crt;

Program cau1;

Var  toan ; van; tbc ; anh ,  interger ;

Clrscr  ;

begin

writeln(‘nhap vao diem toan:’) ;   readln(toan)

writeln(‘nhap vao so diem van: ‘) ; readln(van)

writeln(‘nhap vao so diem anh: ‘) ; readln(anh)

 tbc:=(van+toan+anh)/3;

writeln(‘diem trung binh la: ‘, tbc);

readln

end.

Câu 2. 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.

program tinh tong ;

uses crt ;

var a, b, tong := integer ;

begin

clrscr ;

writeln ( ‘ Nhap so a = ’ );

readln (a) ;

writeln ( ‘ Nhap so b = ’ ) ;

readln (b) ;

tong = a + b ;

writeln ( ‘ Tong cua hai so a va b la: ’ , tong ) ;

readln ;

end

2. Sửa lỗi cú pháp cho chương trình trên nếu có. (1 điểm) Program KTC HK1; Ues Crt; Var a, S: Interger; Begin Writeln(‘Nhap a = ’) ​Readln(a); ​S:= sqrt(a); Writeln(‘S = ’ S); End.