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ố . 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

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.