Viết ct nhập hai số tự nhiên m,n từ bàn phím rồi thực hiện
a) in ra các ước chung của hai số m,n
b) ktra tính đồng thời chẵn lẽ của hai số m,n. nếu cả hai số m,n đều là số chẳn thì thong báo DUNG, ngc lại thì thogn báo SAI
c) so sánh n^m vơi m^n
Viết ct nhập hai số tự nhiên m,n từ bàn phím rồi thực hiện
a) in ra các ước chung của hai số m,n
b) ktra tính đồng thời chẵn lẽ của hai số m,n. nếu cả hai số m,n đều là số chẳn thì thong báo DUNG, ngc lại thì thogn báo SAI
c) so sánh n^m vơi m^n
uses crt;
var m,n,i,nho1,nho2:integer;
ltn,ltm:real;
begin
clrscr;
write(‘Nhap m= ‘);readln(m);
write(‘Nhap n= ‘);readln(n);
{Tim uoc chung lon nhat}
nho1:=m;nho2:=n;
while nho1<>nho2 do
if nho1>nho2 then nho1:=nho1-nho2 else nho2:=nho2-nho1;
write(‘Uoc chung cua 2 so ‘,m,’ va ‘,n,’ la: ‘);
{Uoc cua uoc chung lon nhat se la uoc chung cua 2 so m va n}
for i:=1 to nho1 do
if nho1 mod i = 0 then write(i,’ ‘);
writeln;
if (m mod 2=0) and (n mod 2=0) then writeln(‘Dung’) else writeln(‘Sai’);
ltn:=1;ltm:=1;
for i:=1 to n do ltm:=ltm*m;
for i:=1 to m do ltn:=ltn*n;
write(n,’^’,m,’ ‘);
if ltn>ltm then write(‘> ‘) else
if ltn<ltm then write(‘< ‘) else
write(‘= ‘);
write(m,’^’,n);
readln;
end.
uses crt;
var m, n, i, smm, smn: integer;
begin
writeln(‘Hay nhap so nguyen m:’);
readln(m); //Gán dữ liệu cho số nguyên m
writeln(‘Hay nhap so nguyen n:’);
readln(n); //Gán dữ liệu cho số nguyên n
writeln(‘Uoc chung cua ‘, m, ‘la: ‘);
for i := 1 to m do //Dùng vòng lặp for để tìm ước chung của m
begin
if m mod i = 0 then //Nếu m chia hết cho i
write(i, ‘ ‘);
end;
writeln;
writeln(‘Uoc chung cua ‘, n, ‘ la: ‘);
for i := 1 to n do //Tương tự như tìm uc cho n
begin
if n mod i = 0 then
write(i, ‘ ‘);
end;
writeln;
if m mod 2 = 0 then // Nếu m chia hết cho 2
writeln(m, ‘ la so chan: DUNG’)
else
writeln(m, ‘ la so chan: SAI’);
if n mod 2 = 0 then // nếu n chia hết cho 2
writeln(n, ‘ la so chan: DUNG’)
else
writeln(n, ‘ la so chan: SAI’);
// Tìm m^n
smm := 1;
for i := 1 to n do //Vd: 2^4 = 4 lần 2*2 => lặp 4 lần 2*2.
smm := smm * m;
writeln(m, ‘ ^ ‘, n, ‘ = ‘, smm);
smn := 1;
for i := 1 to m do
smn := smn * n;
writeln(n, ‘ ^ ‘, m, ‘ = ‘, smn);
if smm > smn then
writeln(smm, ‘ > ‘, smn)
else if smm < smn then
writeln(smm, ‘ < ‘, smn)
else
writeln(smm, ‘ = ‘, smn);
end.
== Chúc bạn học tốt nha! ==