Viet CT so sanh ab ????

2 câu trả lời

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.

Program bai_lam;

uses crt;

var a,b:integer;

Begin

Write('nhap gia tri cho a');readln(a);

Write('nhap gia tri cho b');readln(b);

If a>b then write('a lon hon b');

                   else ('b lon hon a')

Readln;

End.

Câu hỏi trong lớp Xem thêm