1) Viết chương trình so sánh hai số a và b theo hai dạng (đủ, thiếu) 2) Sửa lỗi đoạn chương trình sau: Program sua loi; var a,b,s =real Begin write ('nhap a=') , readln('a'); write (nhap b=') , readln(b') s:= (a*b)/2; write ('s=s); readln End.

2 câu trả lời

1. 

Program sosanhavab;

uses crt;

var a,b: integer;

begin

clrscr;

write('nhap a:'); readln(a);

write('nhap b:'); readln(b);

if a>b then writeln ('a lon hon b') else if a<b then writeln ('b lon hon a')

else writeln ('a bang b');

readln;

end.

2.

Program sua loi;

uses crt;

var a,b,s : real;

Begin

clrscr;

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

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

s:= (a*b)/2;

write ('s=',s);

readln;

End.

2) sua_loi;

thêm clrscr; dưới lệnh begin

thêm dấu ; sau lệnh readln(b)