**Viết chương trình nhập từ bàn phím 2 số nguyên a và b so sánh kết quả của 2 số:

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a,b:'); Readln(a,b);

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

If a<b then writeln('a be hon b');

If a=b then writeln('a bang b');

Readln

End.

**Viết chương trình nhập từ bàn phím 2 số nguyên a và b khác nhau (a>b) ,sử dụng câu lệnh điều KIỆN (đề sai) coi a có chia hết b không

Program baitap;

Uses crt;

Var a,b:integer;

Begin

Clrscr;

Write('Nhap a,b:'); Readln(a,b);

If a mod b=0 then writeln('a chia het cho b')

                      Else writeln('a khong chia het cho b');

Readln

End.

viết chương trình nhập từ bàn phím 2 số nguyên a và b so sánh kết quả của 2 số .

Bài làm:

uses crt;

var a,b: integer;

begin

clrscr;

writeln('Nhap so nguyen a:');     readln(a);

writeln('Nhap so nguyen b:');     readln(b);

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

if a=b then writeln('So a bang so b') else writeln('So b lon hon so a');

readln;

end.

viết chương trình nhập từ bàn phím 2 số nguyên a và b khác nhau (a>b) ,sử dụng câu lệnh điều khiển coi a có chia hết b không

Bai lam:

uses crt;

var a,b: integer;

begin

clrscr;

writeln('Nhap so a:');    readln(a);

writeln('Nhap so b');     readln(b);

if (a>b) then 

begin

if a mod b =0 then writeln('So a chia het cho so b') esle writeln('So a khong chia het cho so b');

end;

else writeln('Khong thoa man so a lon hon so b');

readln;

end.