câu 21:

ban đầu:

var so1,so2,hieu:=integer;
begin
write('chuong tring thuc hien phep tru so hoc');
so1:=400;
so2:=200;
hieu:so1-so2;
write('ket qua=',hieu:5);
readln;
end;

a) sau khi sửa:

var so1,so2,hieu:integer (bỏ dấu "=")
begin
write('chuong tring thuc hien phep tru so hoc');
so1:=400;
so2:=200;
hieu:=so1-so2;  (thêm dấu "=")
write('ket qua=',hieu:5);
readln;
end.  (thay dấu ";" bằng dấu "."

b) kết quả sau khi đã sửa hết lỗi: "chuong trinh thuc hien phep tru so hocket qua =200"

câu 22:

var n,m,i,s:integer;
begin
clrscr;
write('nhap so n:'); readln(n);
write('nhap so m:');readln(m);
while n>m do
begin
 writeln(' n phai be hon m');
 write('nhap lai n:');
 readln(n);
end;
for i:=n to m do
 if i mod 4=0 then s:=s+i;
write('tong cac so chia het cho 4 trong pham vi tu n den m la:',s);
readln;
end.
(mong dc 5*+hay nhất)

Câu 21:

a)

Dòng 1

Var so1,so2,hieu:=integer; 

⇒Sai→Cấu trúc khai báo biến: Var <tên biến>:<kiểu dữ liệu>;

→Sửa lại: Var so1,so2,hieu:integer;

Dòng 4

so1:=200

⇒Sai→Khi kết thúc câu lệnh gán giá trị thì phía sau nó phải có dấu " ; "

→Sửa lại: so1:=200;

Dòng 6

hieu:so1-so2;

⇒Sai→Đây là câu lệnh gán giá trị nên nó thiếu dấu =

→Sửa lại: hieu:=so1-so2;

Dòng 9 

End;

⇒Sai→Khi kết thúc chương trình thì end kết thúc bằng dấu chấm.

→Sửa lại: End.

b) Sau khi chương trình đã sửa hết lỗi thì kết quả là 200 

→Giải thích: so1:=400; so2:=200;

→hieu:=so1-so2→400-200=200

Câu 22:

uses crt;
var n,m,i,s:integer;
begin
clrscr;
s:=0;
write('Nhap n: '); readln(n);
write('Nhap m: '); readln(m);
write('Cac so chia het cho 4 tu n den m la: ');
for i:=n to m do
if i mod 4=0 then s:=s+i;write('Tong: ',s);
readln
end.