uses crt;

var a,b:integer;

begin

clrscr;

readln(a,b);

writeln(a+b);

writeln(a-b);

writeln(a*b);

writeln(a/b:4:2);

readln;

end.

uses crt;

var a,b,ucln,bcnn,i:integer;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

ucln:=1;

if a<b then begin

                        for i:=1 to a do

                           if (a mod i=0) and (b mod i=0) then                                             begin

                                     if ucln<i then ucln:=i;            

                               end;    

                   end else begin

              for i:=1 to b do

                  if (a mod i=0) and (b mod i=0) then

                      begin

                           if ucln<i then ucln:=i;

                      end;      

       end;

bcnn:=a*b;

for i:=a*b-1 downto 1 do  

   if (i mod a=0) and (i mod b=0) then      

       begin

             if bcnn>i then bcnn:=i;      

       end;

writeln('Uoc chung lon nhat la: ',ucln); 

writeln('Boi chung nho nhat la: ',bcnn);

readln;

end.

var a,b,i,t,s: word;

begin

repeat

writeln('Nhap A,B vao: (cach nhau boi dau Enter)');

readln(a);

read(b);

writeln('Nhap lai gia tri A,B: ');

until (a>=1) and (b>=1) and (a<=10000) and (b<10000);

s:=a+b;

t:=a*b;

if s<t then i:=s else i:=t;

while (s mod i <> 0) or (t mod i <> 0) do i:=i-1;

writeln('UCLN cua A+B va AB: ',i);

writeln('So du khi chia AB cho A+B: ', t mod s);

end.

làm ơi cíuuuu

Tham Khảo:

#include <bits/stdc++.h>

using namespace std;

long long n,m,x,i;

//chuongtrinhcon

long long ucln(long long a,long long b)

{

if (b==0) return(a);

else return(ucln(b,a%b));

}

//chuongtrinhchinh

int main()

{

cin>>m>>n;

x=ucln(m,n);

for (i=1; i<=x; i++) if (x%i==0) cout<<i<<" ";

cout<<endl;

cout<<"Uoc chung lon nhat="<<x<<endl;

cout<<"Boi chung nho nhat="<<(m*n)/x<<endl;

return 0;

}

b: 

Input: a,b

Output: UCLN(a,b)

1)a chia hết cho b thì b là ước của a

 a chia hết cho b thì b là bội của a. 

2)Ta có thể tìm các bội của một số khác 0 bằng cách nhân số đó lần lược cho 1, 2, 3, …

3)Ta có thể tìm các ước của một số a (a > 1) bằng cách lần lược chia số a cho số tự nhiên từ 1 đến a để xét xem a chia hết cho những số nào, khi đó các số ấy là ước của a.

4)Số nguyên tố là số tự nhiên lớn hơn 1, chỉ có hai ước là 1 và chính nó.

5)Ước chung của hai hay nhiều số là ước của tất cả các số đó.

6) Bước 1: Phân tích mỗi số ra thừa số nguyên tố.

- Bước 2: Chọn ra các thừa số nguyên tố chung.

- Bước 3: Lập tích các thừa số đã chọn, mỗi thừa số lấy với số mũ nhỏ nhất của nó. Tích đó là ƯCLN phải tìm.

7)ƯCLN của hai hay nhiều số là số lơn nhất trong tập hợp ước chung

9)Bội chung của hai hay nhiều số là bội của tất cả các số đó.

10

1)a chia hết cho b thì b là ước của a

 a chia hết cho b thì b là bội của a. 

2)Ta có thể tìm các bội của một số khác 0 bằng cách nhân số đó lần lược cho 1, 2, 3, …

3)Ta có thể tìm các ước của một số a (a > 1) bằng cách lần lược chia số a cho số tự nhiên từ 1 đến a để xét xem a chia hết cho những số nào, khi đó các số ấy là ước của a.

4)Số nguyên tố là số tự nhiên lớn hơn 1, chỉ có hai ước là 1 và chính nó.

5)Ước chung của hai hay nhiều số là ước của tất cả các số đó.

6) Bước 1: Phân tích mỗi số ra thừa số nguyên tố.

- Bước 2: Chọn ra các thừa số nguyên tố chung.

- Bước 3: Lập tích các thừa số đã chọn, mỗi thừa số lấy với số mũ nhỏ nhất của nó. Tích đó là ƯCLN phải tìm.

7)ƯCLN của hai hay nhiều số là số lơn nhất trong tập hợp ước chung

9)Bội chung của hai hay nhiều số là bội của tất cả các số đó.

10

uses crt;
var a,b,i,bcnn,ucln:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until (a<>0) and (b<>0);
writeln('Uoc chung cua ',a,' va ',b,' la: ');
if a<b then
begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
if a>b then
begin
for i:=1 to b do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
if a=b then
begin
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then write(i:4);
end;
writeln;
bcnn:=a*b;
for i:=a*b downto 1 do
if (i mod a=0) and (i mod b=0) then
begin
if bcnn>i then bcnn:=i;
end;
writeln('Boi chung nho nhat cua ',a,' va ',b,' la: ',bcnn);
ucln:=1;
for i:=1 to a*b do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
writeln('Uoc chung lon nhat cua ',a,' va ',b,' la: ',ucln);
readln;
end.

BCNN(105;140)=420

UCLN(105;140)=35

tick cho mk nhe bn:33