Câu 1: Tìm và sửa lỗi(nếu có) trong đoạn chương trình sau: Var a, b: real Begin Clrscr; Write(‘nhap a=’), read(a); Write(‘nhap b=’); read(b); If (a+b) := 120 then a =120-b; Readln End; Câu 2: Cho biết kết quả của biến s sau đoạn chương trình sau: a:=5; s:=58; If s>=70 then s:=s+2 else s:=s+a; GIÚP EM VỚI, EM CẢM ƠN

Câu 1 : 

Var a, b: real

=> thiếu chấm phẩy cuối lệnh

Clrscr;

=> chưa khai báo thư viện crt;

If (a + b) := 120

=> dư dấu hai chấm

a = 120 - b;

=> thiếu dấu hai chấm

End;

=> sai dấu chấm phẩy

* Sửa chương trình :

uses crt;

var a, b : real;

begin

clrscr;

write('nhap a = ');read(a);

write('nhap b = ');read(b);

if (a + b) = 120 then a := 120 - b;

readln

end.

Câu 2 : 

=> a = 5; s = 58

=> s >= 70 => 58 >= 70

=> điều kiện s >= 70 sai 

=> bỏ qua lệnh sau then thực hiện lệnh sua else

=> s := s + a = 58 + 5 = 63

=> Kết quả biến S = 63