Viết chương trình nhập vào 2 số n,m.
a) nếu m chia hết cho n thì in ra chi hết và ngược lại
b) in ra số lơn trong 2 số vừa nhập.
Viết chương trình nhập vào 2 số n,m. a) nếu m chia hết cho n thì in ra chi hết và ngược lại b) in ra số lơn trong 2 số vừa nhập.
By Ayla
program m_n;
uses crt;
var m,n:integer;
begin
clrscr;
write(‘Nhap m: ‘); readln(m);
write(‘Nhap n: ‘); readln(n);
if m mod n=0 then writeln(‘a. Chia het’)
else writeln(‘a. Khong chia het’);
if m>n then write(‘b. m lon hon’)
else if n>m then write(‘b. n lon hon’)
else write(‘c. m=n’);
readln;
end.
uses crt;
var n,m:longint;
begin
clrscr;
write(‘n,m= ‘);readln(n,m);
if m mod n=0 then writeln(‘m chia het cho n’)
else writeln(‘m khong chia het cho n’);
if m>n then writeln(‘m>n’) else
if m<n then writeln(‘m<n’) else writeln(‘m=n’);
readln
end.