Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Cao thủ vô danh thích ca...
Xem chi tiết
nguyen thi thao diep
24 tháng 3 2017 lúc 21:36

dễ làm

1:5/6va 1/8

2:55 va 99

3:3 va 7

mình làm rồi bạn ạ,mình mới học sag ny, cho minh nha

Cao thủ vô danh thích ca...
24 tháng 3 2017 lúc 21:46

trình bày ra chứ

Cao thủ vô danh thích ca...
24 tháng 3 2017 lúc 21:58

phải trình bày

Khởi My Công Chúa
Xem chi tiết
Mai Xuân Phúc
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 4 2022 lúc 21:51

#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;

}

Mai Xuân Phúc
4 tháng 4 2022 lúc 22:02

Pascal bạn ơi

Vũ Kiệt
Xem chi tiết
Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 22:26

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.

Nguyễn Lê Phước Thịnh
23 tháng 4 2021 lúc 22:27

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.

Vũ Quang Vinh
31 tháng 8 2021 lúc 15:48

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.

物理疾驰
Xem chi tiết
Yeutoanhoc
28 tháng 2 2021 lúc 11:32

`k^2-k+10`

`=(k-1/2)^2+9,75>9`

`k^2-k+10` là số chính phương nên đặt

`k^2-k+10=a^2(a>3,a in N)`

`<=>4k^2-4k+40=4a^2`

`<=>(2k-1)^2+39=4a^2`

`<=>(2k-1-2a)(2k-1+2a)=-39`

`=>2k-2a-1,2k+2a-1 in Ư(39)={+-1,+-3,+-13,+-39}`

`2k+2a>6`

`=>2k+2a-1> 5`

`=>2k+2a-1=39,2k-2a-1=-1`

`=>2k+2a=40,2k-2a=0`

`=>a=k,4k=40`

`=>k=10`

Vậy `k=10` thì `k^2-k+10` là SCP

Yeutoanhoc
28 tháng 2 2021 lúc 11:34

`+)2k+2a-1=13,2k-2a-1=-3`

`=>2k+2a=14,2k-2a=-2`

`=>k+a=7,k-a=-1`

`=>k=3`

Vậy `k=3` hoặc `k=10` thì ..........

Mai Xuân Phúc
Xem chi tiết
Mai Xuân Phúc
Xem chi tiết
5647382910 HBO
Xem chi tiết
Dương Hoàng Minh
4 tháng 6 2016 lúc 18:39
Giả sử có số nguyên dương n sao cho n+26=Xvà n-11=Y3với X,Y là 2 số nguyên dương (X>Y)

khi đó ta được:x3-y3=37 <=>(x-y)(x2+xy+y2)=37.

ta thấy 0<x-y,x2+xy+y2, nên ta có:\(\begin{cases}x-y=1\left(1\right)\\x^2+xy+y^2=37\left(2\right)\end{cases}\) Thay x=y+1 từ (1) vào (2) ta được y2-y-12=0, từ đó y=3 và n=38vậy n=38 là giá trị cần tìm
Lê Quang Nhật
Xem chi tiết
Phan Thi Hien
Xem chi tiết