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.
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 (‘
By Claire
2) sua_loi;
thêm clrscr; dưới lệnh begin
thêm dấu ; sau lệnh readln(b)
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.