Muốn kiểm tra giá trị A,B có khác nhau hay không ta viết câu lệnh thế nào cho đúng
2 câu trả lời
-Câu lệnh kiểm tra:
if A<>B then write('Khac') else write('Giong');
-Chương trình:
program kiem_tra;
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
if a<>b then write('Khac') else write('Giong');
readln;
end.
if a<>b then Writeln (a,' giong ',b) else write (a,' khac ',b);
chương trình:
uses crt;
var a,b: integer;
begin
clrscr;
write ('nhap a: '); readln (a);
write ('nhap b: '); readln (b);
if a<>b then Writeln (a,' giong ',b) else write (a,' khac ',b);
readln;
end.
