Question

Vận dụng viết chương trình

a. Nếu a lớn hơn b thì thông báo " b bé hơn a"

b. Nếu a lớn hơn b thì thông báo " b lớn hơn a"

Answer 1

Program so_sanh;

Uses crt;

Var a,b: integer;

Begin

Clrscr;

Writeln('nhap gia tri a :'); readln(a);

Writeln('nhap gia tri b:');readln(b);

If a>b then write('b be hon a')

else write('b lon hon a');

Readln

End.

Answer 2

var a,b:integer;

begin

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

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

if a>b then writeln(b,' be hon ',a)

else writeln(b,' lon hon ',a);

readln;

end.

Answer 3

Program thong_bao;

uses crt;

var a,b,c: integer;

begin

clrscr;

writeln('so a,b lan luot la:');

readln(a,b);

if a>b then write ('b be hon a') else then write ('b lon hon a');

readln

end.