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

Các bạn có thể tìm lỗi trong program này giúp tớ được không?

program CTT5;
uses crt;
var a,b : integer;
begin
writeln('Nhap so hang dau tien : ');readln(a);
writeln('Nhap so hang thu hai : ');readln(b);
if b=0 then
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Khong the chia cho 0');
else
writeln('Ket qua phep cong la : ',a+b);
writeln('Ket qua phap tru la : ',a-b);
writeln('Ket qua phep nhan la : ',a*b);
writeln('Ket qua phep chia la : ',a div b);
readln;
end.

Nếu các cậu tìm được tớ sai lỗi nào thì comment cho tớ để tớ biết!

Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;

hãy cho biết chương trình pascal sau đây có đúng hay không ?vì sao?

a) Program  Hieu_hai_so;

             Begin

                       Writeln(‘Hay nhap hai so’);

                        Readln(a,b);

                        Write(‘Hieu cua hai so la:‘,a-b);

             Var a,b: Integer;

              End

b) Program Tong_hai_so;

             Begin

                      Writeln(‘Hay nhap hai so’);

                     Readln(a,b);

                     Write(‘Tong cua hai so la:‘,a-b);

             Var a,b: Integer;

              End