làm c++

#include <bits/stdc++.h>

using namespace std;

long long m,n;

//chuongtrinhcon

long long ucln(long long m,long long n)

{

if (n==0) return(m);

else return(ucln(n,m%n));

}

//chuongtrinhchinh

int main()

{

cin>>n>>m;

cout<<ucln(n,m);

return 0;

}

Pascal bạn ơi

Câu 1: 

uses crt;

var m,n,ucln,i:integer;

begin

clrscr;

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

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

ucln:=1;

if m<n then 

begin

for i:=1 to m do 

if (m mod i=0) and (n mod i=0) then 

  begin

if ucln<i then ucln:=i;

end;

end

else begin

for i:=1 to n do 

  if (m mod i=0) and (n mod i=0) then 

begin

if ucln<i then ucln:=i;

end;

end;

writeln(ucln);

readln;

end.

Câu 2: 

uses crt;

var m,n,bcnn,i:integer;

begin

clrscr;

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

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

bcnn:=m*n;

for i:=m*n-1 downto 1 do 

  if (i mod m=0) and (i mod n=0) then

begin

if bcnn>i then bcnn:=i;

end;

writeln(bcnn);

readln;

end.

BCNN:

program boichung;
var m,n: word;

procedure Input;
        begin
            readln(m,n);
        end;

function BC(m,n: word): word;
var i: word;
       begin
           for i := 1 to n * m do
               if (i mod n = 0) and (i mod m = 0) then
                   write(i,' ');
       end;

begin
    Input;
    BC(m,n);
end.

UCLN:

program UCLN;
var m,n,r,i: longint;
begin
readln(n,m);

n := abs(n);
m := abs(m);

if (n = 0) then
    begin
        i := 1;
        write(m);
    end
else
    if (m = 0) then
        begin
            i := 1;
            write(n);
        end;

r := n mod m;
while r <> 0 do
      begin
        r := n mod m;
        n:= m;
        m:= r;
      end;
if (i = 0) then
    write(n);

readln    
end.

uses crt;

var a:array[1..250]of integer;

n,i,t,max,min:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

 if a[i] mod 3=0 then t:=t+a[i];

writeln('Tong cac so la boi cua 3 la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end.

Bài 15. a) Tìm sáu bội của 6 ; b) Tìm các bội nhỏ hơn 30 của 7.

a) 6 bội của 6 là : {0 ; 6 ; 12 ; 18 ; 24 ; 30}

 b) bội nhỏ hơn 30 của 7 là : {0 ; 7 ; 14 ; 21 ; 28}

Bài 16. a) Tìm tất cả các ước của 36 ; b) Tìm các ước lớn hơn 10 của 100

a) Ư(36) = {1 ; 2 ; 3 ; 4 ;6 ; 9 ; 12 ; 18}

b) Ư(100) = {20 ; 25 ; 50}

Bài 17. Tìm số tự nhiên x , biết a) x là bội của 11 và 10 x 50   . b) x vừa là bội của 25 vừa là ước của 150.

a) vậy x E BC(11 và 500) vì 11 và 500 nguyên tố cùng nhau nên BC(11 ; 500) = 500 x 11 = 5500

vậy x \(⋮\)25 và 150 \(⋮\)x         B(25) = {0 ; 25 ; 50 ; 75 ; 100 ; 125 ; 150 ; 175...}

Ư(150) = {1 ; 2 ; 3 ; 5 ; 6 ; 10 ; 15 ; 25 ; 30 ; 50 ; 75 ; 150}  => a = (25 ; 50 ; 75)

Bài 18. Trong các số: 4827,5670,6915,2007 , số nào: a) chia hết cho 2 ? b) chia hết cho 3 ? c) chia hết cho 5 ? d) chia hết cho 9 ?

a) chia hết cho 2 là : 5670

b) chia hết cho 3 là : 2007 ; 6915 ; 5670 ; 4827

c) chia hết cho 5 là : 5670 ; 6915

d) chia hết cho 9 là : 2007 ; 

Bài 19. Trong các số sau: 0,12,17,23,110,53,63,31 , số nào là số nguyên tố?

SNT là : 17 ; 23 ; 53 ; 31

Bài 20. Thay dấu * bằng chữ số thích hợp để mỗi số sau là số nguyên tố: a) 4* b) 7*, c) * d) 2*1

4* = 41 ; 43 ; 47 

7* = 71 ; 73 ; 79

* = 2 ; 3 ; 5 ; 7

2*1 ; 221 ; 211 ; 251 ; 271

Bài 21. Thay dấu * bằng chữ số thích hợp để mỗi số sau là hợp số: a) 1* ; b) * 10 c) *1 d) *73.

1* = 11 ; 13 ; 17 ; 19

*10  = ???

*1 = 11 ; 31 ; 41 ; 61 ; 71 ; 91

*73 = 173 ; 373 ; 473 ; 673 ; 773 ; 973

J mà lắm z ba